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INTRODUCTION 


This unit is a data collection device which takes 
measurements from external sensors at user specified time 
intervals. Three sensor ports are dedicated to temperature, air 
pressure, and dew point. Five general purpose sensor ports are 
also provided. Each sensor port supplies two sources of plus 
and minus 15 volts for sensor power. One of the power supplies 
is for sensors that stabilize quickly and the other power supply 
is for sensors that take longer than a few seconds to stabilize. 
(Sensor warm up time is under software control for maximum 
system flexability . ) 

After connecting the desired sensors the user specifies 
when measurements are to be recorded. The user enters the 
desired starting and stopping dates and times for the data 
collection. The warm up time for the ’’slow” sensors and the 
frequency of data collection must also be specified. If more 
than the three dedicated sensors are connected the additional 
ports must also be entered. This completes the initialization 
and the unit may be left running completely powered or it may be 
switched to a low power consumption mode. 

While the system is running the user can switch full power 
on and interrogate the unit to examine any of the measurements 
that have already been recorded. The user can also examine the 
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current readings on any of the sensors or the data that have been 
collected can be dumped to a peripheral device (a minicomputer, 
paper tape, etc.) if desired. 

SECTION 1 OPERATION 

1.1 FRONT PANEL DESCRIPTION 

1. MAIN POWER SWITCH - This switch ( 1 in Figure 1 ) 
connects the power to the unit. The switch is a "lever locking 
switch" and must be pulled out before it can be operated. Since 
the data logger's memory is volatile, turning off the main power 
will des t roy all stored information . 

2. PROCESSOR POWER SWITCH - If the main power switch (1 on 
the front panel) is on, the processor power switch (2 on the 
Front Panel) will provide power to every part of the data logger 

except the RS-232 transmitting interface (I/O power). All 

( 

I 

sensors will be powered when this switch is on and the data 
logger will perform any user request if a terminal is connected 
and I/O power is on. (NOTE: If the data logger is supplying 
warm up power to the sensors and this switch is turned off the 
warm up power will also turn off and the next set of readings 
will be invalid. At any time, except when warm up power is on, 
this power may be switched off and the data logger will record 
all measurements correctly.) 
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3. I/O POWER SWITCH - This switch controls the power to 
the RS-232 transmitter interface to the terminal connection (3 
in Figure 2 ) and to the peripheral connection (7 on the 

Back Panel) . If this switch is off the terminal and peripheral 
can transmit to the data logger, but the data logger will not 
transmit to them. (NOTE: It is advisable not to transmit 

either from a terminal or a peripheral device to the data logger 
if I/O power is off and the processor power is on.) In most 
cases the I/O power and the processor power will be both on or 
both off. 


4. RESET - This switch resets the processor and should be 
pressed after the user turns the data logger on. If the data 
logger stops responding to user inputs the reset can be used to 
clear the transmission lockup. 


5. DATA DUMP - This switch is only active if the user has 
selected the data dump option from the user options page (see 
section 1.3-6, DATA DUMP OPTION). If active, depressing the 
switch will transmit all of the collected data to the terminal 
and peripheral connections. 


5. DEVICE SELECTION SWITCH - If terminal is selected, two 
way communications occur between the terminal (teletype or video 
terminal) and the data logger. Most of the time the data logger 


will be used in this manner. 
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If the peripheral is selected, the terminal transmits to 


the data logger and receives 

data 

through the 

peripheral 

connector . 

The data logger 

transmits to the 

peripheral 

connector . 

This feature can be 

used 

to transfer data from the 

data logger 

to another computer 

and 

is described 

in section 

1.3-5, DATA 

DUMP OPTION. 





1.2 BACK PANEL DESCRIPTION 


7. PERIPHERAL CONNECTION - This connection allows the data 
logger to communicate with a peripheral device (i.e., computer, 
minicomputer, papertape puncher, etc.) through a terminal. The 
data logger can also dump readings to the peripheral device. 
(The connections are listed in the appendix.) 


3. 

or video 
logger . 
the data 
logger . 


TERMINAL CONNECTION - This connection is for a tel 
terminal that will be used to communicate with the 
The terminal will enter parameters that will initi 
logger and can also request information from the 


etype 
data 
al ize 
data 


9. POWER CONNECTION - This connector is for +12 volt power 


for the data logger. 
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Figure 2 
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10. FUSE - A 1.5 Amp fuse should be used. 

11. SENSOR PORTS - There are 8 sensor ports on the back 
panel. The ports are labeled 1-8 and the first three ports are 
dedicated. Each port connector has a coax signal connection and 
four power connections. (The connections for the ports are 
listed in the appendix.) The coax signal should be in the range 
of 0-5 Volts. 


12. TEMPERATURE PORT - This port is dedicated to measuring 
temperature. 0-5 Volts corresponds to -30 - +70 degrees 
Centigrade . 


13* DEW POINT PORT - This port is dedicated to measuring 
dew point. The 0-5 Volt range corresponds to -34 - +50 degrees 
Centigrade . 

14. AIR PRESSURE PORT - This port is dedicated to 
measuring the air pressure. The 0-5 Volt range corresponds to 
800 - 1100 millibars. 
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1.3 DESCRIPTION OF USER OPTION PAGE 


The user has access to five basic routines that allow him 
to interact with the data logger. A list of these options is 
printed on the 'terminal whenever any key except CONTROL S, A, B, 
C, D or E is depressed and the system is not executing one of 
these routines. Samples of typical displays are included in 
each of the associated sections below. The underlined 
characters correspond to the user's responses. 


1. LIST OF OPTIONS - The list of options is printed on the 
terminal whenever any key except CONTROL S, A, B, C, D or E is 
typed and the system is not executing one of these routines. It 
should be noted that the warm up power status is displayed prior 
to the option list. If warm up power is on, the PROCESSOR POWER 
switch should not be turned off immediately (this problem is 
discussed in section 1.1-2 of this manual). The following 
figure is an example of the user option page. 


EXAMPLE: (user depresses the space bar and the system responds 
with : ) 


WARM-UP POWER IS ON 

A) INITIALIZING PARAMETERS 

B) CURRENT SENSOR READINGS 

C) SEQUENTIAL READINGS 

D) INITIALIZATION 
E‘) DUMP 

(CONTROL 'S' STOPS PRINTOUT) 



Page 9 


To invoke any option, the letter preceding it on the option 
page should be typed on the terminal. To exit any option prior 
to its end, CONTROL S may be typed. 

2. OPTION A) INITIALIZING PARAMETERS - After the system 
has been initialized, the initializing parameters may be 
examined by typing A. As shown in the example contained in this 
section, the measurement starting date' and time, ending date and 
time, warm up time in minutes and interval of measurements are 
displayed at the terminal. 

EXAMPLE: 

A 

START 04/01 03:00 

STOP 04/29 16:00 

WARMUP TIME 02 MINS 

FREQUENCY OF MEASUREMENTS 00:05 

3. OPTION B) CURRENT SENSOR READINGS - Sensor outputs may 
be examined at any time with this routine. After typing B, a 
heading is printed which lists all ports to be interrogated. 
Temperature (port 1), dew point (port 2) and pressure (port 3) 
are dedicated ports and will always'be printed. Any additional 
ports selected during system initialization will then be 
printed. To measure the sensor outputs, type R. Temperature 
and dew point readings have units of degrees centigrade while 
pressure readings have units of millibars. Any additional 
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sensors selected will yield readings with units of volts. As 
many sets of readings as desired oiay be accumulated. To exit 
this option, CONTROL S must be typed. This routine does not 
store these readings. Therefore, these readings cannot be 
retrieved at a later date by using the data dump option.. If the 
data logger takes a reading during the execution of this option, 
the current line of sensor readings is stopped and the program 
waits for the entry of another R or CONTROL S. An example of 
this option is included below. 

EXAMPLE : 

B 

TYPE 'R' FOR A READING, CONTROL 'S' WHEN DONE 
TEMP DEW PT PRESS P0RT1 P0RT2 PORTS 

R 6.72 - 3.81 983.78 1.853 1.812 3.062 

R 6,72 - 3.81 983-78 1.848 1.812 3.062 

4. OPTION C) SEQUENTIAL READINGS - This routine permits 
the user to examine data the data logger has accumulated. After 
typing C, the system requests a starting date and time followed 
by the number of readings that are desired for display. Dates 
are input in five-character fields by typing the number of the 
month in two digits, a slash (/> and the day of the month in two 
digits. The time is input in a five-character field by typing 

f 

the two digit number of the hour, a colon (:) and the number of 
minutes in two digits. All two digit numbers must have 
unsurpressed leading zeros. The number' of the hour is based on 
a- 24 hour clock. A heading similar to the heading of option B 
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but including columns for date and time is printed. If any 

V. 

readings were taken on or after the specified date, they are 
printed as shown in the example in this section. When the 
requested number of readings has been printed or when the last 
reading taken has been displayed, the routine is exited. 
Similarly, if no readings were taken after the specified date 
and time, the processor exits the routine after printing the 
heading. As before, this routine may be terminated at any time 
by typing CONTROL S. If a reading (NMI) occurs during the data 
printout portion of this option, the current line of data is 
interrupted. The complete line is reprinted on the next line. 
NOTE: To avoid possible problems, care should be exercised to 
avoid entering data (dates, times and number of readings) when 
the data logger is scheduled to take a reading. 

EXAMPLE: 

C 

START DATE?(MM/DD) 04/01 TIME?(HH:MM) 03:03 
HOW MANY?(XXX) 003 

DATE TIME TEMT" DEW PT PRESS P0RT1 P0RT2 PORT3 

04/01 03:05 1.25 -‘7.09 989- 12 1.565 1.607 3- 152 

04/01 08:10 1.25 - 7.09 989.12 1.563 1.604 3.152 

04/01 08:15 1.25 - 7.09 989.12 1.563 1.604 3-152 

5. OPTION D) INITIALIZATION - This option is used to 
prepare the data logger to take a series of readings. If data 
is stored in the system, it should be dumped before this routine 
is entered. After entering the initialization procedure, any 
old data stored in the system is no longer accessible. To 
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protect data in case this option is inadvertently entered, after 
D is typed the user is prompted with INITIALIZATION?(YES, NO) . 
If YES is typed, this routine is entered. Any other character 
string will cause the processor to back out of this option. 

If YES is entered, the user is asked for the current date 
and time. Format for the date and time are the same as that 

used in the sequential reading option. When the last character 
of the time is entered, an internal clock is reset and starts 
keeping track of elapsed time. The desired starting date and 
time are requested followed by a request for the date and time of 
the final reading to be taken Each date and time- are entered in 
the same format as described in section 4. After the 

corresponding prompt, the number of minutes of warm up time 
desired should be entered as a two digit number. When asked for 
the frequency of measurements, the user should enter a three 
digit number corresponding to the number of minutes between 
readings . 

If a mistake is made during the preceding part of this 

option, the ESCAPE key may be used. The user is then prompted 

to reenter the necessary data. The ESCAPE key may be used 
several times in order to step backwards through this routine 
and correct mistakes at any point in the option. 

The second part of this routine is now entered. The user 
is asked if he desires any additional ports. If NO is typed, 
only the first three dedicated ports are used for temperature, 
dew point and pressure measurements. If YES is typed, the user 
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is asked which port he wishes to use. He responds by typing a 
number between 1 and 8 corresponding to the desired port. He is 
then asked once more if he desires any additional ports. This 
process is repeated until all the desired ports are specified 
and a NO is entered. At this point the user is prompted 
REASSIGN PORTS?(YES, NO ) . It is suggested that the port 
assignments be checked and if an error is found, type YES. This 
causes the port assignment portion of this option to be 
reexecuted . If NO is typed, the processor exits this option. 
It should be noted that an error will result if the same 
additional port is specified more than once in the second part 
of this option (i.e., if port 2 is selected twice as an 
additional port). However, ports 1, 2 and 3 may be specified as 
additional ports even though they are dedicated for temperature, 
dew point and pressure measurements. This may be desireable 
because as dedicated ports, the voltages present at ports 1 and 
2 are stor.ed as 8 bit binary words while if they are selected as 
additional ports, the voltages are stored as 12 bit binary words 
the second time they are measured. This permits the voltages 
present at ports 1 and 2 to be stored with greater precision. 
The remaining port voltages are always stored as 12 bit binary 


words . 
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EXAMPLE: 


D 

INITIALIZATION? (YES, NO) 

YES 

DATE?(MM/DD) 03/31 TIME?(HH:MM) 17:22 

START DATE?(MM/DD) 04/01 TIME?(HH:MM) 03:00 

STOP DATE?(MM/DD) 04/29 TIME?(HH:MM) TSTOO 

WARMUP TIME? (MM) 02 
FREQUENCY OF MEASUR'EMENTS? ( XXX) 005 
ADDITIONAL SENSORS? (YES, NO) 

YES 

PMT NUMBER?(1-8)J_ 

ADDITIONAL SENSORS? (YES , NO) 

YES 

PORT NUMBER? (1-8) 2 
ADDITIONAL SENSORS? (YES, NO ) 

YES 

FMT number? (1-8)3 
ADDITIONAL SENSORS? (YES, NO) 

NO 

REASSIGN PORTS?(YES,NO) 

NO 


NOTE: No provision has been made to keep track of the year 

in which' a measurement is made. Because of this, if the system 
IS initialized in the year before readings are bo begin, the 
months of the year in which readings occur are numbered, 13, 14, 
etc. Further, the data logger treats all months in the second 
year as if they contain 23 days. Since this sytera was not 
intended to run for periods of more then one month unattended, 
this should present no problem. As an example, if the data 
logger is initialized on December 30, 1979 and is to start 

taking readings on January 3, 1980, the starting date used in 

the initialization routine would be 13/03. (Regardless of the 
year the data logger assumes February has 23 days.) 
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6. OPTION E) DATA DUMP - This option is designed to permit 
the data logger to be interfaced to an external device through 
the peripheral connector in order to dump the collected 
readings. The routine is entered by typing E. At this point, 
any key may be typed except CONTROL S and it will merely be 
echoed to the terminal or peripheral (depending on the position 
of the DEVICE SELECTION switch as described in section 1.1-5). 
To dump data to an external device (through the peripheral 
connector), place the DEVICE SELECTION switch to PERIPHERAL. 
The external device now transmits to the terminal and the 
terminal transmits to the external device through the data 
logger. If the data dump switch is depressed, the data logger 
transmits a short header followed by all the data it has 
collected. When all of the data has been transmitted, the data 
logger once again echos all input characters. Control S must be 
used to leave this routine The formats of the header and data 
are now discussed. 

a). HEADER - After the data dump switch is depressed, the 
first six printed lines contain the initializing parameters. 
All lines in the header are left justified and separated by a 
carraige return, line feed and two delete characters. The first 
two lines consist of starting date and time and ending date and 
time respectively. All dates and times are transmitted in five 
character fields identical to the format required to enter dates 
and times in the initialization option. Separating each date 
and time is a field of five blanks. Line three contains the 
warm up time represented as a two digit decimal number. Line 
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four contains the frequency of measurements in the same 
five-character field as described for the starting and stopping 
times, A two digit hexadecimal number in the fifth line gives 
the number of data words stored each time a reading is taken. 
Another two digit hexadecimal number in the sixth line tells 
which ports are selected for measurement in addition to the 
three dedicated ports (which are always measured) . This 
information is conveyed by examining the binary equivalent of 
the number. Each of the eight binary digits corresponds to a 
port. If a digit is one, the corresponding port is selected for 
additional measurement. Letting the least significant digit be 
bit 0 and the most significant digit be bit 7, the 
correspondences of binary bits in this sight bit word and ports 
are as follows; 

BIT 0 - PORT 1 
BIT 1 - PORT 2 
BIT 2 - PORT 3 
BIT 3 - PORT 4 
BIT 4 - PORT 5 
BIT 5 - PORT 6 
BIT 6 - PORT 7 
BIT 7 - PORT 8 

b) DATA FORMAT - The seventh and all following lines are 
devoted to collected data. Each line corresponds to a separate 
reading and is set off from succeeding lines by a carraige 
return, line feed and two delete characters as before. Within 
each line the unsigned hexadecimal data words are separated from 
each other by a single space. The first two data words of each 
line are two digits long. They represent the temperature port 
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voltage (port 1) and the dew point port voltage (port 2) 
respectively. The remaining data words on each line are three 
digits long. The first of these numbers always represents the 
pressure port voltage (port 3). From this point on, the data 

words represent voltages on additional ports selected by the 
user starting with the smallest port number and continuing to 
the largest port number. To convert these hexadecimal data 
words to corresponding voltages, the decimal equivalent of each 
data word must first be obtained. Equation 1 is used to convert 
the first two data words. The remaining data words are 
converted using equation 2. 

1) DATA WORD X 5/256 = V(PORT) 

2) DATA WORD X 5/4096 = V(PORT) 


In order to convert port voltages on ports 1, 2 and 3 to 
temperature, dew point and pressure, the conversions listed 
below may be used; 

PORT 1 TEMP(DEGREES C) = V(PORTI) X 20.00 - 30.00 

PORT 2 DEW PT. (DEGREES C) = V(P0RT2) X 16.80 - 34.00 

PRESSURE(mb) = V(P0RT3) X 60.00 + 800.00 


PORT 3 
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1.4 HARDWARE SETUP 


Before 

applying 

power the 

system 

must 

be configured 

correctly . 

This involves checking 

the memory configuration, the 

power switching board. 

and the baud rate. 



The memory must 

start at 

address 

4000 

(hex) and be 

contiguous 

upward . 

Each memory 

board 

has a 

dip switch which 

determines 

the location of the 

memory 

board . 

The starting 


addresses of the memory are written next to each switch on the 
board. (Either the full four digits or the first two digits of 
the address are given. For example, on the 2K memory board 42 
indicates the starting address is 4200 (hex),) The memory 

addresses must not overlap, therefore, if both 2K and 4K memory 
boards are used in the data logger the 4K boards must reside at 
lower addresses than the 2K boards. When a 4K board and a 2K 
board are used, the 4K board must be set at 4000 and the 2K 
board at 5000 (50). (In hex 1K=400, 2K=800, 3K=C00, 4K=1000.) 
It is important that only one switch is closed at any time. 

The available memory must be checked to insure that enough 
is available to record the number of readings desired. The 
following two formulas may be used to calculate how much memory 
is required or how many readings may be taken: 

ADDSEN=The number of additional ports selected. 

MEM=The amount of memory in system. 

READINGS=The total number of readings you want to take. 
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Memory needed ( bytes) =READINGSXr2+1 . 5X( ADDSEN+1 ) 1+64 
Number of readings allowabler (MEM-64 ) /f2+1 . 5X(ADDSEN+1 )1 
The symbols indicate "smallest integer larger than". 

EXAMPLES: 

For example, if one additional port is selected and 
readings are taken every hour for 31 days, then the amount of 
memory needed would be 


MEMORY=(31X24)Xr2+l .5X(1+1 )l+64 
=744Xf5 +64l 
= 3784 
APPROX. =3. 8K 


If no additional ports are selected how long can readings 
be taken every half hour with 6K of memory? 

NUMBER OF ALLOWABLE READINGS = (6K-64 ) / [2+1 . 5* (0+1 )1 

=6080/r3.5l 
= 1520 

Number of Days= 31.5 


It IS important to remember that the data logger can not 
tell if it tries to store readings and has exceeded the 
available memory. If this happens, sequential readings and data 
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dump will print out incorrect values for the readings that it 
tried to store after exceeding the available memory. The data 
logger may be configured with up to 1 2K bytes of memory. 

A dip switch for the baud rate selection is located on the 
processor board. All communication between the data logger, 
terminal, and peripheral must occur at the same rate. The 
available baud rates are 110, 150, 200, 300, 600, 1200, 1800, 
and 2400. It is important that only one of the switches is 
closed at any one time! 

The power board has three dip switches that control the 
power switching relays. If the processor power is going to be 
left on during the entire time the data logger is operating then 
these three switches should be left off. This will disable the 
relays and extend their life. If the data logger will operate 
with the power off, these three switches must be on. 


1.5 RECOMMEMDED STARTUP PROCEDURE 


1. Configure the memory correctly. 

2. Ensure that sufficient memory is available. 

3. Check the relay dip switches on the power board for the 
correct position. 
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4. Check the baud rate. 

5. Turn off the MAIN POWER switch. 

6. Connect the +12VDC to the Back Panel. 

7. Turn on the PROCESSOR POWER and I/O POWER switches. 

8. Turn the DEVICE SELECTION switch to data logger. 

9. Connect the sensors. 

10. Turn on the MAIN POWER switch. 

11. Depress the RESET switch. 

12. Use the software options as desired. When initializing the 

data logger remember; 

1. The internal clock is reset when the last digit of the 
present time is entered. 

2. The starting date/time must be after the present 

date/time . 

3. The stopping date/time must be after the starting 

date/tirae . 

4. The-warm up time must be less than (stopping date/time - 
present data/time) . 

5. The frequency of measurements must be greater than the 
warm up time. If the warm up time is greater than the 
desired frequency of measurements, then set warm up time 
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equal to zero and always leave the processor power on. 

6. If a correction is made when specifying the additional 
ports all ports must be respecified. 

If any of these rules are violated the data logger 
will not work correctly. 

13. Use current readings to check sensor connections. 

14. Turn off the I/O power when done. 

15. If the processor power does not have to be left on, turn it 
off. Turn off processor power only when informed by the 
user option page that warm up power is off. 


Once initialized the system can be turned on again as 
follows : 


1) Turn I/O power on. 

2) Turn the processor power on. 

3) Depress the reset switch. 

The terminal and/or peripheral can be connected (or 
disconnected) to the data logger at any time. 
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SECTION 2 HARDWARE DESCRIPTION 
2.1 SYSTEM DESCRIPTION 

This data logger was designed using the Motorola 5800 
microprocessor family. A detailed understanding of the system 
operation requires familiarity with this 8-bit microprocessor 
family. However, the general overview which follows requires 
only a broad knowledge of a few of the 6800 family components. 

a) . The microprocessor (6802) has an eight bit 
bi-directional data bus and a sixteen bit address bus. Included 
on the chip are 128 bytes of random access memory (RAM) which 
are used as scratchpad memory and stack. Three other inputs of 
interest are IRQ, NMI and RESET. When IRQ or NMI is driven to 
zero volts, an interrupt or non-maskable interrupt, 
respectively, is initiated. The processor then starts executing 
routines to service these interrupts before returning to its 
original activity. When RESET is driven low, processor activity 
halts and its registers are initialized. When RESET goes high, 
the processor starts executing the restart routine. 

b) . The ACIA (M6850) is an Asynchronous Communications 
interface Adapter. This device interfaces the microprocessor to 
a serial communications line. It requires an external clock bo 
establish the baud rate. 
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c) . The PIA (M6821 ) is a peripheral interface Adapter. 
This chip contains two eight bit ports and additional inputs 
which may be used to trigger interrupt requests to the 
processor. Each port (referred to as ports A and B) may have 
lines individually selected as inputs or outputs by software. 
In addition, port A is CMOS compatible. 


The data logger is broken into the following five 
assemblies (see Figure 3)* 

1) . PROCESSOR 

2) . CLOCK 

3) . A/D CONVERTER 

4) . MEMORY 

5) . POWER SWITCHING 


Each assembly is housed on a separate printed circuit board. 
The memory, however, can be expanded simply by adding cards 
until a maximum of 12K bytes of RAM are used. This permits more 
data storage and thus longer periods of operation before dumping 
data is required . 

The following sections briefly describe each board and 
indicate how boards interact with each other. A voltage 
followed by (s) is a switched voltage and is present only when 
the processor is powered. When +15 and -15 volts are referred 
to and no (s) follows them, the voltages are present when warm 
up power is on. If +5 volts is not followed by (s), it is the 
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unswitched voltage which is present whenever the MAIN POWER 
switch is on and +12 volts are applied to the system. 

2.2 PROCESSOR BOARD 


The processor board controls the overall operation of the 
system and provides serial communications with external devices 
via an RS-232C interface over which serial ASCII characters with 
even parity are transmitted and received. A block diagram of 
the board (as seen in Figure 4) is utilized to permit a general 
discussion of the board's operation. Detailed schematics of all 
the boards may be found in the appendix. 

a) . Power source requirements are listed below. 

VO LTAGE CURRENT (TYPICAL) CURRENT (MAXIMUM) 

+5(s) 400 ma 700 ma 

+15 and -15 14.6 ma 19*3 ma 

b) . Operation - The processor may be broken into four 
basic sections. 

Processor Section - The bulk of the processor board is 
devoted bo the processor section. It is organized around the 
M6802 microprocessor. Decoding of high order address lines to 
enable the clock PIA, A/D PIA, ACIA and EPROMS (eraseable 
programable read only memories) is achieved with a 4 line to 16 
line decoder (74154). Reset signals for PIA and processor 
initialization are generated here through a combination of RC 
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FIGURE 4 


PROCESSOR BOARD BLOCK DIAGRAM 
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networks and schmidt triggers (741M). In order to interface the 
processor to the (relatively) slow EPROMs, the tnemory ready 
signal (MR) is held low for 370 nanoseconds after VMA (valid 
memory address) and E (enable) go high, thus slowing down the 
processor when it accesses external devices. Finally, 
read/write signals (R/W + MR) and enable (E • VMA) for use by 
memory boards originate in this section. 

Processor Clock - Basic timing for both the processor and 
the serial interface portions of the processor board are 
provided by the processor clock. It consists of a baud-rate 
generator (MC14411) and a 1.843 MHz crystal. A buffered 1.843 
MHz signal drives the processor while eight signals ranging from 
1.7583 KHz to 38.4 KHz drive the serial interface. This variety 
of frequencies permits manual selection of baud rates from 110 
to 2400 baud. 

Serial Interface - This section transmits and receives 
asychronous serial data via the ACIA and makes it available bo 
the processor on the eight bit data bus. Upon receipt of a 
complete, even parity ASCII word, an ACIA generated interrupt 
request causes the processor bo execute the IRQ routine. The 
TTL transmit and receive lines from the ACIA are interfaced to 
RS-232C levels through standard interface adapters (M1488 and 
M1489 chips) . 


EPROM - The program for the data logger is contained in two 
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INTEL 2716 EPROMS, This yields a total program space of 4K 
bytes . 


2.3 CLOCK BOARD 


The clock board times the intervals between periods of 
processor activity such as data collection and switching on warm 
up power. It is also the source of various control signals used 
by other boards in the data' logger. 

a) . Power supply requirements- are listed below. 

VOLTAGE CURRENT (TYPICAL) CURRENT (MAXIMUM) 

r ‘ " ■ I II I. I I ■ ■ , I... ■ I . I. M 

+5 1 ma 9 ma 

+5(s) 120 ma 300 ma 

b) . Operation - Timing is achieved by a combination of 
crystal controlled oscillator, counters, shift registers and 
coincidence gates. The crystal accuracy is approximately O.OI^S 
over the temperature range -25 to +85 degrees centigrade. A one 
cycle per minute pulse is obtained from a 262.144 KHz oscillator 
and counting circuits. This signal increments a 12 bit counter. 
A comparison occurs between the contents of this counter and a 
12 bit shift register containing the number of minutes in the 
desired interval. As soon as the two numbers match, a 
monostable multivibrator is triggered. This signal resets the 
minute counter, triggers an NMI request to the processor (in 
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conjunction with the clock PIA) and exits the board to turn on 
all power at the power board. 

The raonostables which turn power off are also located on 
this board. In order to conserve power, the PIA which controls 
them is powered down except when the processor is in operation. 
To prevent false triggering, two bits of different levels are 
required from the PIA before either raonostable is triggered. 
The same technique is used to reset the clock when the system is 
first initialized and to disable RAM whenever the processor is 
not powered. 

Two more lines from the clock PIA are used elsewhere in the 
data logger. One triggers a conversion cycle by the A/D 
converter. The remaining line is configured as an input and 
responds to the data dump switch on the front panel. Table 1 
lists the PIA port lines and their uses. 


2.4 A/D BOARD 


This board interfaces 8 single ended analog inputs to the 
processor. The digitized data is read by the processor as a 12 
bit CSB (complementary straight binary) word. 


a) . Power supply specifications are listed below. 
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TABLE 1 


Clock PIA 



PORT A 


PORT 

' B 

BIT 

PIN 

FUNCTION 

BIT 

PIN 

FUNCTION 

0 

2 

Reset Time 

2 

12 

Turns Off Interrupt 

1 

3 

Clock for Shift 

3 

13 

Data Dump Switch 



Registers 

5 

15 

Initiate A/D 

2 

4 

Data for Shift 



Conversion 



Registers 




3 

5 

Enables Power Down 






Monostables 




4 

6 

Power Off (2> 




5 

7 

Power Off (3> 




5 

8 

Memory Enable 




7 

9 

Memory Enable 





A/D PIA 

PORT A PORT B 


BIT 

PIN 

FUNCTION 

BIT 

PIN 

FUNCTION 

0 

2 

D0 (LSB» 

0 

10 

D8 

1 

3 

D1 

1 

11 

D9 

2 

4 

D2 

2 

12 

D10 

3 

5 

D3 

3 

13 

Dll (MSB» 

4 

6 

D4 

4 

14 

Conversion Status 

5 

7 

D5 

5 

15 

Channel Select (S0t 

6 

8 

D6 

6 

16 

Channel Select (Sl> 

7 

9 

D7 

7 

17 

Channel Select (S2) 
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VOLTAGE CURRENT (TYPICAL) CURRENT (MAXIMUM) 

+5(s) 150 ma 273 ma 
+15 and ~15 21.3 ma 23. 0 ma 

b) . Operation - Three PIA lines are used to select the 
desired analog input at a CMOS switch C14529B). Before reaching 
the A/D converter ( ADC80AG-1 2) , the signal is buffered by a 
unity gain non-inverting operational amplifier (OP-02), The DC 
offset of this op'-amp is adjusted by a potentiometer located on 
this board. 

A conversion is initiated by (INIT CONV) • (CONV STATUS) 
where INIT CONV is the processor controlled signal from the 
clock board PIA and CONV STATUS is a status bit from the A/D 
converter. A low on CONV STATUS indicates that no conversion is 
currently occurring. Upon satisfaction of these requirements, a 
monostable is triggered which ultimately yields a 2.0 
microsecond pulse to the A/D converter. This triggers a 
conversion cycle which takes 25 microseconds to complete. Upon 
completion, the status bit goes low informing the processor, 
through the A/D PIA, of the conversion status and enabling 
subsequent conversions. Table 1 lists the A/D PIA port lines 
and their uses. 
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2.5 MEMORY BOARDS 

Two types of CMOS memory boards are available. Both types 
are similar except in memory capacity (2K bytes versus 4K bytes) 
and in the differences in address decoding this necessitates. 

a) . Power requirements are listed below. Standby currents 
pertain to the boards’ current requirements when the boards are 
not being accessed by the microprocessor. Operation current 
refers to the current requirements when the board is being 
written to or read from by the microprocessor. 


CURRENT 

4K BOARD 

2K 

BOARD 

VOLTAGE 

TYPICAL 

MAXIMUM 

TYPICAL 

MAXMUM 

+5 (STANDBY) 
+5 (OPERATION) 

8 

40 raa 

5 ma 
50 ma 

8 

80 raa 

30 

96 ma 


(UNLESS NOTED, ALL CURRENTS ARE IN MICROAMPS) 

b) . 4K Byte Board - Eight 2K X 4 bit Harris 6514 CMOS 
memory chips form the nucleus of this board. Address decoding 
is performed in such a manner as to permit each board to be 
located at hex locations 4000, 5000, 6000 or 7000 in the memory 
space. These locations are selected by a DIP switch mounted on 
the board. The board may be enabled or disabled under processor 
control by MEM EN and MEM EN. This combination of two signals 
to enable memory prevents erroneous data being written into the 
memory boards when processor and PIAs are powered down. 
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c) . 2K Byte Board - Sixteen IK X 1 bit Hams 6508 CMOS 
memory chips are utilized on this board. Operation of this 
board is similar to the 4K board except that the board may be 
located at 4000, 4800, 5000, 5800, 6000, 6800, 7000 or 7800 in 
the memory space. 

2.6 POWER SWITCHING BOARD 

The power switching board generates all the required supply 
voltages and switches +5, +15 and -15 volt supply lines in order 
to conserve power. 

a). Power requirements are listed below. 


QUIESCENT CURRENT 


VOLTAGE 

DEVICE 

TYP MAX 

+ 12 

1 

LM 240LH 
LM 209K 
U2/D15/150/Z 

1 ma 5 ma 

2 ma 8 ma 

EFFICIENCY RATED AT 10 % AT FULL LOAD 


(150 ma AT +15 AND -15 VOLTS) 

b) . Operation - Two five volt regulators and one plus and 
minus fifteen volt converter are utilized on this board. The 
LM240LH +5 volt regulator provides for the low current 
requirements of the memory boards and clock board and is 
therefore always in operation. The higher current requirements 
of the A/D and processor boards are handled by the LM209K. In 
order to conserve power, the input to this regulator is switched 
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off when the processor and A/D boards are not in use. The 
output of the A12/D15/150/Z plus and minus fifteen volt voltage 
converter is used to drive sensors (external to the data 
logger) , components on the A/D board and the RS-232C transmitter 
on the processor board. The input and outputs to this device 
are switched in such a manner as to permit a warm up period for 
sensors during which the processor and A/D boards are not 
powered . 

Voltage switching is accomplished with three Teledyne 720-5 
magnetic latching relays. These relays control inputs and 
outputs of the regulators and converter on this board. Signals 
controlling these relays originate on the clock board and have 
the following effects; 


POWER ON (1 ) 
POWER OFF (2) 
POWER OFF (3) 


Turns on all switched voltages 

Turns off all switched voltages 

Turns off switched voltages except warm up 


voltages 


If switched operation is not desired (i.e. when power need 


not be conserved) switches have been provided to disconnect 
these signals and thus extend relay life. 
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2.7 SYSTEM POWER REQUIREMENTS 


As previously mentioned, only 12 vdc is required to power 
the data logger and all external sensors. The current 
requirement of the system is dependent upon the activity of the 
system. 

This may be broken into three areas; 

Period 1) All voltages on (processor taking readings). 
Period 2) Warm up power on, all switched voltages off 
(sensors warming up). 

Period 3) Warm up power and all switched voltages off 
(waiting for next NMI) . 


The approximate current requirement in milliaraps for each of 
these periods is given below; 


TYPICAL 

Period 1 ) (320 + R/0 .65) 
Period 2) (10 + RW/0.65) 
Period 3) 3 


MAXIMUM 

(1300 + R/0. 65) 
(40 + RW/0.65) 
40 


In the above, R is the total current required by all sensors and 
RW is the current required by sensors powered by the warm up 
voltages. Although the leng-th of Period 1 is dependent upon the 
number of sensors selected during the initialization procedure, 
it is typically on the order of 0.75 seconds for three sensors. 
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If the system is to be powered by batteries, the required amp 
hour rating may be found by multiplying the current drain 
associated with each of the above periods by the total time each 
of these periods occurs in the anticipated period of system 
operation . 


SECTION 3 SOFTWARE DESCRIPTION 

The software controls all of the hardware in the data 
logger, the selection of which power is on or off and the 
acquisition of data. A detailed description of the software 
(the variables used and the function of each subroutine) is 
given in the program listing in the appendix. (The reader is 
advised to read this section first before trying to understand 
the program listing.) 

Whenever a user turns the system on and presses reset, or 
anytime the clock board finishes timing an interval and turns on 
the power the microprocessor starts the .RESET routine (see 
figure 5). The reset routine can be divided into two parts; 
initialization of the newly powered system, and the user 
options. The reset routine initializes the stack pointer in 
order that stack operations and subroutine calls can be done. 
The PIAS are then initialized. Since t-urning on the power may 
change the timing interval in the clock, the clock is 

momentarily disabled and the time for the NMI is reset. Some of 
the on board RAM variables are cleared (specifically WHERE and 
BACKUP) , 
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The second part of the reset routine waits for the user to 
type a key. If the key corresponds to a user option, the option 
is entered and the desired information is displayed or the user 
is prompted further. If the user types an invalid key the user 
options are retyped. NOTICE: When the user is at the user 
option page the memory is always disabled; at other time 
should the processor power be turned off. 

The hardware interrupt (IRQ) is connected to the ACIft. 
Thus, whenever a character is received an IRQ interrupt is 
triggered. The IRQ flowchart is shown in figure 6. The 
received character is first checked for validity (even parity is 
used) . An invalid character results in the printing of a 
question mark. A valid character is printed and stored in the 
location RECEIVE. 

If the received character is an ESCAPE then BACKUP is 
checked. If BACKUP is zero the escape does nothing and a RTI 
(Return from Interrupt) is executed. If the escape is valid, 
the correct number of words are removed from the stack (until 
address STRIP is reached), a '*DEL*' is printed, and the user 
jumps back an input line. If the received character is a 
CONTROL S, several words from the stack are removed (as if a RTI 
was executed) and the user is returned to the options page. 
Every time a valid character is received a bit in location 3IRQ 
is set. This tells the user option page that the user has 
pressed a key and would like something done for him. 




"d 

UJ 

Ok 

:u 

UJ 

kJ 















FIGURE 6 

IRQ ROUTINE FLOWCHART 
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The non-maskable interrupt (NMI) is triggered by the 
falling edge of the one-shot that turns the power on. This 
occurs after the clock matches a time (typically the interrupt 
IS triggered 8 ms after the processor has started the restart 
routine) . The NMI usually indicates that warm up power to the 
sensors must be turned on or that a reading must be taken. The 
NMI routine (see figure 7) can be divided into three parts; 
preliminary initialization, determining the reason for the NMI 
and performing that function, and lastly, properly returning to 
the interrupted section of the restart routine. 

The preliminary initialization finishes the initialization 
of clock b (the clock PIA, port B) , and disables the clock board 
from further (or multiple) interrupts. A delay is performed 
(approximately 0.5 seconds) to allow sensors without warm up 
power to stabilize. Variables used in sequential readings are 
saved, and all variables are restored to their correct values. 
The present time (stored in memory) is then updated. 

The NMI routine decides what should be done from the value 
of the status word (see figure 7). Before the NMI routine is 
finished the status word is changed to reflect what functions 
need to be performed next time- If all measurements have been 
taken, 68 hours and 15 minutes is loaded into the clock and all 
power IS turned off. If measurements have not started yet and 
if they start today, their starting time is loaded into the 
clock. Otherwise 24 hours is loaded into the clock. (To allow 
a warm up time, on the days before the readings start NMI occurs 



Page 42 


at a warm up time before midnight.) All power is then turned 
off. 


If the readings have already started, either warm up power 
is turned on or the appropriate readings are taken. If readings 
are taken, eight are averaged together for each port. After the 
readings are taken a check is performed for stopping time. If 
the stopping time has not been reached, the frequency of 
measurements minus the warm up time is loaded into the clock. 
If it wasn’t warm up time all power is turned off; otherwise 
warm up power is left on. 

Every time power is turned off a software delay 
(approximately 0.5 seconds) is performed. If the processor 
power switch is on, the delay has no purpose. If the switch is 
off, the delay makes certain that the processor executes no 
other instructions while power is turning off. 

The final section of the NMI routine checks if the user 
options current readings, sequential readings, or dump was 
interrupted. If none of the above options were interrupted, a 
RTI is executed (the memory is still disabled). If dump was 
interrupted, the memory is enabled before the RTI. If 
sequential readings were interrupted, the current line of output 
is restarted on the next line. If current readings were 
interrupted, the current line of output is terminated. 






€li 
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APPENDIX 
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CONNECTOR DESCRIPTIONS 


A) TERMINAL AND PERIPHERAL CONNECTORS 

AMPHENOL 25 PIN (FEMALE) D-SERIES BODY 

PIN 2 TRANSMITTED DATA (even parity ASCII, RS232-C standard) 
PIN 3 RECIEVED DATA (even parity ASCII, RS232-C standard) 

PIN 4 REQUEST TO SEND 

PIN 5 CLEAR TO SEND 

PIN 6 DATA SET READY 

PIN 7 GROUND 


B) PORT (SENSOR) CONNECTORS 

CANNON DEM5W1S WITH CENTER COAXIAL CONNECTION (RG/50) 

PIN 1 -15 VOLT (WARM UP) 

PIN 2 +15 VOLT (SWITCHED) 

PIN 3 +15 VOLT (WARM UP) 

PIN 4 -15 VOLT (SWITCHED) 

COAXIAL 

CENTER ANALOG INPUT (0-5 VOLTS) 

SHEILD GROUND 
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POWER SWITCHING BOARD 
EDGE CONNECTOR SIGNALS 


1 SWITCHED +12V FROM 

2 SWITCHED +12V FROM 

3 

4 POWER ON (1); 

5 POWER OFF (2) 

6 POWER OFF (3) 

7 

8 
9 

10 GND 

11 +12VDC 

12 

13 

14 

15 GND 

16 +5V 

17 

18 +5V (SWITCHED) 

19 +15V (SWITCHED) 

20 -15V (SWITCHED) 

21 -15V 

22 +15V 


FRONT 

FRONT 


PANEL 

PANEL 
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MICROPROCESSOR BOARD 
EDGE CONNECTOR SIGNALS 


1 AO 

A A1 

2 A2 

B A3 

3 A4 

C A5 

4 A6 

D A7 

5 A3 

E A9 

6 A10 

F A11 

7 A12 

H AI 3 

8 AJ4 

J A15 

9 DO 

K D1 

10 D2 

L D3 

1 1 D4 

M D5 

12 D6 

N D7 

13 R/W 

P E 

14 RESET 

R NMI 

15 RESET (MANUAL) 

S RESET (MANUAL) 

16 PIA SELECT (CLOCK) 

T PIA SELECT (A/D) 

17 GND 

U R/W + MR 

18 GND 

Y 

19 

W +5V (SWITCHED) 

20 E * VMA 

Y 

21 +15V (TRANSMIT POWER) 

Y TRANSMIT SERIAL DATA 

22 -15V (TRANSMIT POWER) 

Z RECEIVE SERIAL DATA FROM TERMINAL 
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CLOCK BOARD 

EDGE CONNECTOR SIGNALS 


1 AO 

A A1 

2 MEMORY ENABLE 

B MEMORY ENABLE 

3 
C 

4 DATA DUMP 

D POWER ON (1) 

5 

E POWER OFF (2) 

6 

F POWER OFF (3) 

7 

H INITIATE CONVERSION (TO A/D BOARD) 

8 

J 

9 DO 

K D1 

10 D2 

L D3 

1 1 D4 

M D5 

12 D6 

N D7_ 

1 3 R/W 

P E 

14 RESET 

R NMI 

15 
S 

16 PIA SELECT (CLOCK) 

T 

17 GND 
U 

18 

V +5V 

19 
W 

20 
X 

21 

Y 

22 
Z 


+5V (SWITCHED) 
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A/D BOARD 

EDGE CONNECTOR SIGNALS 


1 

A 

2 

B 

3 
C 

4 
D 

5 
£ 

6 
F 

7 
H 

8 
J 
9 
K 

10 
L 
1 1 
M 
12 
N 

13 
P 

14 
R 

15 
S 

16 
T 

17 
U 

18 

V 

19 
W 

20 
X 

21 

Y 

22 

Z 


AO 

A1 


INITIATE CONVERSION 


DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7_ 

R/W 

£ 

RESET 


PIA SELECT (A/D) 
GND 

GND 

+5V (SWITCHED) 
+15V (SWITCHED) 
-15V (SWITCHED) 
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MEMORY BOARDS 
EDGE CONNECTOR SIGNALS 


1 

A 

2 

B 

3 
C 

4 
D 

5 
E 

6 
F 

7 
H 

8 
J 
9 
K 

10 
L 
1 1 
M 

12 

N 

13 
P 

14 
R 

15 
S 

16 
T 

17 
U 

18 

V 

19 
W 

20 
X 

21 

Y 

22 

Z 


AO 

A1 

A2 

A3 

A4 

A5 

A6 

A7 

AS 

A9 

A10 

All 

A12 

A13 

A14 

A15 

DO 

D1 

D2 

D3 

D4 

D5 

D6 

D7_ 

R/W + MR 
E • VMA 


MEMORY ENABLE 
MEMORY ENABLE 


GND 

+5V 
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FRONT PANEL CONNECTOR 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


+12V (IN) 

+ 12ir (OUT) 

+12V (IN) 

+12V (OUT) 

+15V (IN) 

+15V (OUT) 

-15V (IN) 

-15V (OUT) 

+15V (TRANSMIT POWER) 

-15V (TRANSMIT POWER) 

GND 

RESET (MANUAL) 

RESET (MANUAL) 

DATA DUMP 

REQUEST TO SEND (IN) 

REQUEST TO SEND (OUT) 

CLEAR TO SEND (IN) 

CLEAR TO SEND (OUT) 

DATA SET READY (IN) 

DATA SET READY (OUT) 

SERIAL DATA (FROM PROCESSOR) 
SERIAL DATA (FROM PERIPHERAL) 
SERIAL DATA (TO PERIPHERAL) 
SERIAL DATA (TO TERMINAL) 

GND 






RmI 


R/W 

R/W+MR 

E 

E-VMA 











yf aQ aaoEE s& Mii 


CLOCK B04RD SCHE'^ATIC 


^ EQyjQlEE 
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UNMARKED CHIPS 
E,J-4050 

W-4023 2K MEMORY BOARD SCHEMATIC 

Y-4029 
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POWER SWITCHI! 


.jyOUOOUl 



B04RD SCHEMATIC 
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FRONT PANEL WIRING DIAGRAM 


TERMINAL PERIPHERAL 

CONNECTOR CONNECTOR 



GND+I2V FRONT 

PANEL 
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CLOCK BOARD (CONNECTOR El 
*-sB,C D^E^F L,,M,„N.,P, R,^S.„T_U,„V„ 
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AID BOARD (CONNECTOR F) 
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« 


+THE I'SOFTWARE 


a * 

o <? * 

«»««««««««««»**««♦♦«««*«*«•*««»««*♦«•« 

« 


« 


o^lfiz following are abreviations used 
«FRLi*U£NTLY in the LlSTlNGi^; 





♦ A 




♦ E 




♦ !♦« 



« 

♦F^l^A 


•» 


^REGISTER tA 

♦register *S 

♦THE ♦index +REG1STER 

♦PERIPHERAL ♦INTERFACE ♦ADAPTER 
♦THE tP^I^A IS A parallel 16 BIT 
♦I/^O PORT THAT ALSO HAS THE 

capabilities to detect interrupts. 


« 


« 


« 

tt 


o 


♦A*C^I+A ♦A5YNCHR0NIS ♦COMMUNICATION ♦INTERFACE 
♦ADAPTER 

♦THE ♦A^c^i+A handles the serial transmission 

AND receiving between THE PROCESSOR AND 
THE terminal and THE PERIPHERAL- 

1l^♦^^♦I ♦non-^maskable ♦interrupt 

♦THE ♦N+M^I IS CONNECTED TO THE CLOCK 
BOARD SO THAT ANY TIME THE CLOCK TIMES 
AN INTERVAL AN ♦N+M+l'lS TRIGGERED WHEN 
THE TIME interval IS REACHED. ♦AN ♦I+R+Q 
WILL BE LATCHED IF IT OCCURS DURING 
AN ♦N^M^Ii BUT IT WILL NOT BE EXECUTED 
UNTIL the ♦N^M^I routine IS FINISHED. 

♦I+R+0 ♦INTERRUPT ♦REyQUEST 

♦the ♦ItR^Q IS CONNECTED TO THE ♦A+C^I^A SO 
that any TIME A character is RECEIVED 
by The ♦a+c+i^a an ♦i^r^o occurs, ♦the ♦i^r+q 
routine is executed immediately unless 
A yn^M+I is in the execution process. 

[♦b^AJ ♦brackets indicate That the pair of 
registers should be considered as a 
single 16 BIT number. ♦THE FIRST 
register Is the high order 6 BITS AND 
THE second register FORMS THE LOW 
ORDER a bits. 
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* «■ 

■fr « 

* « 

1-VARIABLES * 

^ AND 9 

^ 1-CONSTANTS * 

« » 

9 * 

9 « 


«««>««««««« 


9 

9 

9 

9 


9 


9 


9 

9 


9 


9 


9 

9 

9 

9 


9 


9 

9 


RECEIV 

tTHE UST WORD RECEIVED BY THE ■^A•1‘C■^1•^A IS 

stored here. 

SIRC 

tTHE third bit OF THIS WORD IS SET WHEN- 
EVER AN ♦I+R+Q OCCURS. 

MONTH 

^WH£N A MONTH IS ENTERED FROM THE TERMINAL 
IT IS STORED HERE. 

Oat 

■^WH£N A day IS ENTERED FROM THE TERMINAL 
IT IS STORED HERE. 

TIKEH 

tWHEN A TIME IS ENTERED FROM THE TERMINAL 
THE HIGH ORDER 8 BITS OF THE TIME IN 
minutes is STORED HERE. 

TIKEL 

•nWHEN a time is ENTERED FROM THE TERMINAL 
THE LOW ORDER 8 BITS OF THE TIME IN 
minutes is STORED HERE. 

pmonth 

tTHE PRESENT MONTH. 

PDAT 

tTHE PRESENT DAY. 

PTI^EH 

♦The fa HIGH order qITs of the present time 

ptikeu 

+THE 6 LOW ORDER BITS OF THE PRESENT TIME, 

lmEnh 

+THE 6 HIGH order BITS OF THE LAST TIME 
STUFFED INTO THE CLOCK. 

LMl'NL 

■MHE 6 LOW ORDER BITS OF THE LAST TIME 

stuffed Into the clock. 

TEMFI-13 

♦thirteen temporary locations. 

SMONTH 

♦THE MONTH THE DATA LOGGER IS TO START 
TAKING readings. 

SCAT 

♦THE DAY THAT THE DATA LOGGER IS TO START 
TAKING readings. 

STIKEH 

♦THE e HIGH ORDER BITS OF THE TIME THAT 
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« 

«• 


STIif'EL 


The data logger is to start taking readings. 


+TmE 0 LOW ORDER BITS OF THE TIME THAT 
THE DATA LOGGER IS TO START TAKING READINGS, 


«• 

« 

« 

« 

» 

* 

« 

* 

* 

a 

4 

* 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 

4 


HFFEQ 

LFPEO 

FMONTH 

FDAV 

FTIKEH 

FTJFEL 

CLCCKA 

CUCCKB 

WTIiFE 

CONE. 

CT»Ci 

CTHFEE 

NUFAVR 

COKVH 

CQNVl 

MDATAH 

MDATAL 


♦THE 8 HIGH ORDER BITS OF THE NUMBER OF 
MINUTES between READINGS, 

♦the B low order bits of THE NUMBER OF 
MINUTES BETWEEN READINGS. 

♦THE month that THE DATA LOGGER IS TO 
STOP TAKING READINGS. 

♦THE DAY that the DATA LOGGER IS TO 
STOP taking readings; 

♦THE 8 HIGH order SITS OF THE TIME THAT 
THE DATA LOGGER IS TO STOP TAKING READINGS, 

♦THE 8 UOw ORDER BITS OF THE TIME THAT 
THE data logger is TO STOP TAKING READINGS. 

♦The address of port ♦a of the ♦p+i+a'on 

THE CLOCK BOARD, 

♦The ADDRESS OF PORT +0 OF THE ♦P^I+A ON 
THE CLOCK BOARD. 

♦the warmup time IN MINUTES. 

♦A CODED VERSION OF HOW MANY 
DAYS, over 28, THERE ARE IN 
EACH MONTH. 

♦A CONSTANT, EQUAL TO EIGHT, THAT 

indicates how many measurements to 
average together for one reading. 

♦after a measurement is taken THE“hI6h 

ORDER 8 BITS OF THE MEASUREMENT IS STORED 
IN THIS location. ♦THIS LOCATION IS ALSO 
USED AS The SOURCE FOR THE CONVERSIONS 
TO THE proper UNITS. 

“AFTER A MESUREmENT IS TaKEN THE LOW ORDER 
8 BITS OF THE MEASUREMENT ARE STORED IN 
THIS LOCATION. +THIS LOCATION IS ALSO USED 
AS THE source for THE CONVERSIONS TO THE 
PROPER UNITS. 

♦The high order e bits of the next location 
that a reading is stored in is KEPT HERE. 

♦THE LOW order 8 BITS OF THE NEXT LOCATION 
that a reading is STORED IN IS KEPT HERt. 


o 
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« STiPTM 

« CNTPL 

« 

O 

» OATi 

o 

EMiSK 

« 

« 

® TMASK 

o 

« 


+TH15 constant is the ADDRESS WHERE 
MEASUREMENTS ARE FIRST STORED IN MEMORY. 

tTHlS location IS A READ ONLY REGISTER In 
THE +A+CtItA that HOLDS STATUS INFORMATION 
ABOUT THE LAST RECEIVED WORD. 

♦THIS location IS THE REGISTER IN THE 
♦A^Crl^A THAT receives A WORD OR TRANSMITS 
A WORD. * 

♦THIS CONSTANT 15 ♦A^N^OED WITH THE CNTRL WORD 
TO CHECK FOR A PARITY Oh FRAME ERROR. 

♦THE CONSTANT IS ♦A^N^DED WITH THE CNTRL WORD 
TO TELt IF THE ♦A^C-^UA IS FREE TO TRANSMIT 
A WORD. 


« 


ADFIAA ♦THIS IS THE LOCATION OF PORT ♦A OF THE 
♦P^I^A ON THE ♦A/'+O BOARD. 

ADFIAB ♦THIS IS THE LOCATION OF PORT ♦(} OF THE 
♦P^I^A ON THE ♦A/^D board. 

STATUS ♦this WORD KEEPS STATUS INFORMATION THAT 
TELLS THE ♦N^H^I ROUTINE WHAT FUNCTION TO 

perform next. 








TEnFIRi ♦THESE LOCATIONS ARE USED TO TEMPORARILY 
SEOCND save the CONTENTS OF THE ♦l^R. 

POFTBT ♦THIS WORD TELLS WHICH ADDITIONAL PORTS 

have been SPECIFIED IN THE INITIALIZATION 
PROCEDURE. ♦A ONE IN A BIT 0-7 SPECIFIES 
A PORT 1-8 respectively. 


* 


« 

« 

« 

* 

« 

e 


o 


a 


npcfts ♦This location holds the total number of 

MEASUREMENTS THAT ARE TO BE TAKEN DURING 
each set OF readings'. 

SENNUM ♦THIS location TELLS SUBROUTINE ADCVAL 
WHICH PORT TO READ. 

FULLR ♦this LOCAION temporarily holds the NUMBER 

READINGS THAT ARE TO BE TAKEN, 

iNciR ♦THIS loccaion indicates how many memory 

LOCATIONS ARE NEEDED TO STORE EACH SET 

OF measurements. 

WHIChl, ♦THESE LOCATIONS ARE USED IN DETERMINING 
WHICH2 which port IS TO BE READ NEXT. 

CONVHl. ♦THESE LOCATIONS ACT AS TEMPORARY LOCATIONS 
coNvLi for the value of CONVH.CONVL. 
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NU^LOt** 

♦THESE LOCATIONS INDICATE HOW MANY READINGS 

o 

NUyit-i 

THE USER WOULD LIKE DISPLAYED DURING 
sequential READINGS, 

«■ 

BACKUP* 

♦THESE LOCATIONS HOLD AN ADDRESS TO JUMP 


BACKP 

BACK TO IF THE USER PRESSES THE ♦E^S+C^A+P^E 
KEY WHEN HE IS INITIALIZING THE DATA LOGGER. 


SAVINGS* 

♦THESE LOCATIONS ARE USED TO TEMPORARILY 

•» 

SAVI 

store the CONTENTS OF THE ♦I^R, 




RECEIV 

ECU 

S12 

SlHw 

ECU 

S!3 

hONTh 

ECU 

S4001 

day 

ECU 

S4O02 

TIHEh 

ECU 

SA003 

TIMEl 

ECU 

S4004 

PHONTH 

ECU 

S4005 

PDAY 

ECU 

S4006 

ptImeh 

ECU 

$4007 

PTIHEl 

ECU 

$4008 

lhInh 

ECU 

$4009 

LMlNL 

ECU 

S400A 

TE«P6 

ECU 

S400B 

TEHP7 

ECU 

S400C 

TEMPS 

ECU 

54000 

TEMP9 

ECU 

$400E 

tempio 

ECU 

540 OF 

TEMPI! 

ECU 

54010 

smOnth 

ECU 

$4011 

sday 

ECU 

54012 

ST IM£H 

ECU 

54013 

STXHEL 

ECU 

S4014 

HFREg 

ECU 

54015 

LFREQ 

ECU 

$4016 

FMOKTH 

ECU 

54017 

FDAY 

ECU 

54018 

ftimeh 

ECU 

$4019 

ftikel 

ECU 

S401A 

clocka 

ECU 

SEOOO 

CLOCKB 

ECU 

SE002 

WTiHE 

ECU 

54018 

TEMPI 

ECU 

S401C 

TEMPa 

ECU 

54010 

TEMPS 

ECU 

S401E 

TEMP4 

ECU 

S401F 

TEMPS 

ECU 

S402C 

TEMP12 

ECU 

54021 

TEMP13 

ECU 

$4022 

CONE 

ECU 

SCE 

CTWO 

ECU 

SEP 

CTHrEE 

ECU 

SBB 

STkHTR 

ECU 

S7F 
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numavr 

ECU 

508 



CONvm 

ECU 

S4023 



convl 

ECU 

54024 



MOATAh 

ECU 

$4025 



MDATaL 

ECU 

S4026 



STAFiTF 

ECU 

54040 



CnTRu 

ECU 

$0800 



emaSk 

ECU 

570 



data 

ECU 

50801 



TMASk 

ECU 

502 



ADFIAA 

ECU 

SE800 



ADPIAB 

ECU 

SEB02 



STATUS 

ECU 

54000 



SDATE 

ECU 

$4027 



TEMPIR 

ECU 

5402S 



second 

ECU 

$4029 



TEMP13 

ECU 

502 



TEHP14 

ECU 

S03 



poRtbt 

ECU 

5402A 



nports 

ECU 

S402B 



SENNUP 

ECU 

S402C 



FULLR 

ECU 

54020 



InCIR 

ECU 

S402E 



WHlCHl 

ECU 

S402F 



WHlCti2 

ecu 

54030 



CONVhl 

ECU 

54031 



CONVul 

ecu 

$4032 



NUMLOH 

ECU 

54033 



NUHMI 

ECU 

54034 



bAC|<UF 

ECU 

$00 



BACK? 

ECU 

$01 



savings 

ECU 

514 



SAVI 

ECU 

$15 



SENSCV 

ECU 

SF800 



MOELAY 

ECU 

sF9E5 



RSHIFT4 

ECU 

5F94A 



delay 

ECU 

5F9DE 







CPG 

5FOOO 

FQOO 

202020 

spaces 

FCC 

+7 -t7 

F003 

202C 




FOOb 

00 


FC8 

00 

FOO& 

44415** 

dateo 

FCC 

+7DATE+/IHM/DD) t7 

FOO^ 

453F2b 




F OOC 

40402F 




FOOF 

444429 




FOU 

20 




F0I3 

00 


FCE 

00 

FOl'^ 

544940 

ti«eo 

FCC 

47TlM£t/ IHH-MMM) +7 

F017 

453F2B 




FCIA 

48483A 




Foil) 

404029 




F020 

20 




F021 

00 


FCB 

00 

F022 

53b44l 

START 

FCC 

+7START t7 

F02b 

525420 




F028 

00 


FCB 

00 
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F 02 V 

53544F 

STOP 

FCC 

F 02 C 

5020 



F 02 E 

00 


Fca 

FC 2 F 

46 S 24 S 

freo 

FCC 

F 032 

51554 S 



F 035 

4 E 4359 



F 03 C 

204 F 46 



F 03 fl 

20 



F 03 C 

4 D 454 I 


FCC 

F 03 F 

53 SS 52 



F 042 

454 D 4 & 



F 045 

4 E 5453 



FOA^e 

00 


FCb 

F 049 

3 F 2 B 58 

qFREq 

FCC 

F 04 C 

585829 



F 04 F 

20 



F 050 

00 


FCB 

FoSi 

574152 

wAHP'UP 

FCC 

EOS'* 

405550 



FC 57 

20 



F 056 

00 


FCB 

F 059 

444154 

DA 

FCC 

FC 5 C 

4520 



F CiSE 

00 


FCB 

F 05 F 

544940 

TI 

FCC 

F 062 

4520 



F 064 

00 


FCB 

F 065 

204 D 49 

MIN 

FCC 

F 068 

4 E 5320 



F 068 

00 


FCB 

Foec 

4E4550 

nEXTr 

FCC 

F 06 F 

542052 



F 072 

454144 



F 075 

494 E 47 



F 078 

204154 



F 078 

20 



F 07 C 

00 


FCB 

FC 70 

504153 

PH 

FCC 

FOSO 

542052 



FOBS 

454144 



F 086 

494 E 47 



Foe 9 

5320 



F 08 b 

00 


FCB 

F 08 C 

54454D 

TE 

FCC 

Foaf 

5020 



F 09 l 

ou 


FCB 

F 092 

^44940 

WT 1 MEt! 

FCC 

F 09 b 

453 F 28 



F 098 

404029 



F 09 B 

20 



F 09 C 

00 


FCB 

F 09 D 

414444 

aodsen 

FCC 

FOAO 

495449 



F 0 A 3 

4 F 4 E 41 



F 0 A 6 

4 C 2053 



F 0 A 9 

4 S 4 E 53 



FOAC 

4 F 523 F 




tVSTOP +7 
00 

tTFREQUENCY of t7 


♦TMEASUREMENTSt? 


00 

1^7i-/tXXX> ■‘T 


00 

t7WARHUP t7 


00 

♦70ATE +7 
00 

t 7TIHE t.7 
00 

*7 MINS *-7 
00 

♦TNEXT reading AT t7 


00 

-^7PAST READINGS t7 


00 

♦ 7 TEMP +7 
00 

+7TImE+/(MM) +7 


00 

+ 7A0DITI0NAL SENSOR•^/t7 
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F OAF 

00 


FCfa 

00 

FOBu 

50AF52 

POFTk 

FCC 

t7P0RT NUNBER•^/ 

F0B3 

5420*E 




F0B6 

554042 




FcB9 

45523F 




FoBC 

283120 




FOBF 

3829 




FOCI 

00 


FCB 

00 

FOC2 

494E49 

Pl^lT 

FCC 

+7lNITlAtlZATI0Nt/47- 

FOCb 

b^494l 




F0C8 

4C495A 




FOCB 

4 15449 




F OCt 

4F4E3F 




FODl 

00 


FCB 

00 

FOD2 

285945 

YEbNO 

FCC 

♦7 < YES, NO) 47 

FODb 

532C4E 




FOD8 

4F2920 




FOO& 

oooatf 


FCB 

$00, $0A,$7F , $7F , 00 

Foot 

7F00 




FOEO 

574152 

wcyRRs 

FCC 

♦7»iARM-UP time =+7 

FOE3 

402055 




FCEO 

502054 




FOE9 

49404b 




FOEC 

2030 




FOEE 

00 


FCB 

00 

FOEF 

545950 

RS 

FCC 

/type ^7R+7 FOR A READING, CONTROL/ 

FGFd 

452027 




FOF5 

522720 




F0F8 

4b4F52 




FOFB 

204120 




FOFE 

524541 




FlOl 

44494E 




Flo<^ 

472C2U 




F107 

434F4E 




FlOA 

54S24F 




FlOD 

4C 




FlOE 

202753 


FCC 

/ f7S+7 WHEN DONE/ 

Fill 

272057 




F114 

4d454t 




F117 

20444F 




FllA 

4E45 




F UC 

0D0A7F 


FCB 

SOO,$OA,S7F,S7F ,00 

FllF 

7f 00 




Fiai 

524541 

done IN 

FCC 

+7REASSIGN P0RTS+/+7 

F124 

535349 




F127 

474E21) 




F12A 

504F52 




F120 

54S33F 




F130 

00 


FCB 

00 






*1'Th1S 

sleroutine waits for the 



«INPUT 

OF A 

YES OR A NO. 4IF A 



*+7YE£t7 15 

TYPED A 0 IS RETURNED 



»IN tA, 

+ IF 

anything else is TYPED 



*A 1 IS 

RETURNED IN +A, 

F131 

3t 

CH7ES 

WAI 

;WAIT FOR AN tl+HtO 

F132 

9812 


LCAA 

RECEIV ;4A=lAST CHAR. RECE 
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F13A 

8lS9 


CNPA 

>i$t7YT7 


F136 

2fell 


BNE 

NOTY 

{BRANCH IF NOT A f7Yt7 

Fiat) 

3E 


hAI 


{WAIT FOR THE SECOND CHAR 

F139 

9612 


LCAA 

RECEIV 

{4a=last char, received 

Fl3b 

BUS 


CFPA 

-.S+7E+7 


F13D 

260B 


bke 

NOTYES 

{BRANCH TO NOTYES IF NOT A •rTEi'T 

F13F 

3E 


VkAl 


{WAIT FOR THE tTS+T 

F140 

5bl2 


LCAA 

RECEIV 

{♦AsLAST CHAR RECEIVED 

F142 

8153 


CNPA 

•'$+7Sf7 


FIAA 

2604 


bne 

NOTYES 

{BRANCH IF NOT A +7S+7 

FIA6 

4F 


CLRA 


{CLEAR tA MUST BE A YES 

F147 

20U3 


BRA 

YESTST 

{BRANCH TO YES TEST 

F1a9 

3E 

noty 

wA I 


{WAIT FOR another CHAR 

FIaA 

8601 

NOTYES 

L'CAA 

-SSOl 

{NOT A YES LOAD 4A=1 

FUC 

BDF555 

YESTST 

■vSR 

LFCR 

{SKIP A LINE 

FUF 

7F0012 


CLfi 

RECEIV 

{CLEAR RECEIV 

F1S2 

aO 


T.STA 


{TEST +A 

F153 

39 


RTS 


{RETURN TO CALLER 







4+MUlTIPLIES 

WANTS IN REG 4A 

BY 10* 



®LE*vIN6 the 

RESULT IN 4A, 


F154 

48 

AXTEn 

ASLA 


{CONTAINS a^i'X 

F15S 

16 


TAB 


{Contains 2^tx 

FIS6 

48 


ASLA 


{CONTAINS 4W+A 

fist 

48 


ASLA 


{CONTAINS 8W+X 

FlSB 

IB 


ABA 


{ADDS 8>+X AND 2^+X 

F159 

39 


RTS 


{tA=105S4X 




oi'lNpUTS TWO DIGITS AND LEAVES 
*T»i£IR decimal value In tA, 


FISA 

3E 

TwOOie »AI 


{WAIT FOR THE CHAR 

FlSb 

9612 

LCAA 

RECEIV 

{MOVE THE CHAR INTO -*A 

FlSU 

BDFb63 

■wSR 

ASCHEX 

{CONVERT TO HEX EQUIVALENT 

Fi60 

BDF154 

i»SR 

AXTEN 

{MULT +A BY 10 

Flbi 

16 

TAB 


{STORE FIRST DIGIT IN -tB 

FI64 

3E 

WAI 


{WAIT FOR NEXT DIGIT 

FlbS 

9612 

L'CAA 

RECEIV 

{HOVE THE char Into +A 

F167 

t)DF6fa3 

wSR 

ASCHEX 

{CONVERT TO HEX EQUIVALENT 

F16A 

IB 

ABA 


{ADD BOTH DIGITS 

Flbb 

35 

RTS 


{VALUE OF INPUT IN 4A 


««»«««««»«««««««*««««««« 


o+lNpUTS tS+T+A+R+T*+F + I+Ni'I+S+H*AND ♦P+RtE+S+E+N^'T 
«DATt and TIME;wARM-up time AND 

*frel. of measurements. 

F16C CEF16C INDAT LCX -SINDAT 

Flbr DFOO ’ STX BACKUP ;SET BACKUP FOR •sDEl* 

F17I BDF600 i.,SR PSP 

F17a BDFSFB ..,SR PSPaCE 

F177 80F2Ab .^SR GETDAT {GETS THE PRESENT DATE AND TIME 

F17A BOFesD ijSR RCLK ;RES£T THE CLOCK TO o TImE 

fi70 c£<*oos LCX -.spmonth ;tell remember where to store 

Fleo BDF27b vSR REMEM {STORES PRESENT DATE AND TIME 

F183 3DF553 vSR LFCR {PRINTS lF AND CR 

Fieb CEFlbC INSTaR LCX -.sindat 

rl89 DFOO STX BACKUP 

FlSB CEF022 LCX .liSTART {LOAD START 

FieE BDF717 ,^SR print {PRINT f7START+7 
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F19I 

BDF2A6 


^SR 

GETDAT 

F19A 

CEAOll 


LCX 

-iSSHONTH 

F197 

BDF27B 


-SR 

REMEM 

F19A 

B0F555 


-SR 

LFCR 

F19U 

CEFlSb 

instop 

LCX 

-SINSTAR 

fiac 

DFOO 


STX 

BACKUP 

F1A2 

CEF 029 


LCX 

-.SSTOP 

FlAb 

BDF7J7 


■-SR 

PRINT 

FlAb 

BOF60U 


-SR 

PSP 

FiaB 

BDF24B 


-SR 

GETDAT 

fiae 

CE4017 


LCX 

-.SFMONTH 

PlBi 

BDF27b 


-SR 

REMEM 

FloA 

BOFSSb 


-SR 

LFCR 

F1B7 

CEF19D 

INWARM 

LCX 

-iSINSTOP 

FlbA 

OFOO 


.STX 

BACKUP 

FlBC 

CEF051 


LCX 

-.SWARMUP 

FIBF 

BDF717 


-SR 

PRINT 

F1C2 

CEF092 


LCX 

-SWTIMEQ 

FICS 

BDF717 


-SR 

PRINT 

FlCb 

BDF15A 


-SR 

TWODie 

FlCB 

B7401B 


STAA 

WTIHE 

FlCt 

BDF55S 


-SR 

LFCR 

FlDl 

CEF187 

inFreg 

LCX 

-.SiNwARH 

FIOa 

DFOO 


STX 

BACKUP 

F1D6 

CEF02f 


LCX 

-«SFREG 

F1D9 

BDF717 


-SR 

PRINT 

FlDC 

CEF0A9 


LCX 

iSQFREU 

FIOF 

BDF71? 


-SR 

PRINT 

FlEZ 

faDF2AD 


-SR 

THROIG 

FIES 

BTaoIo 


STAA 

lfreq 

FlEfa 

F74Q1B 


■stab 

HFREQ 

fieb 

CEFiOl 

InPORT 

LCX 

-.SlNFREO 

FlEE 

DFqO 


STX 

BACKUP 

FIFO 

8«j03 


LCAA 

iSS03 

FIFE 

B7402B 


STAA 

NPORTS 

FlFS 

7F402A 


CLR 

PORTBT 

FlFd 

BDf 55b 

morep 

-SR 

LFCR 

FlFB 

cEFogD 


LCX 

-«SADDSEN 

fife 

80F717 


-SR 

PRINT 

F20l 

CEF0D2 


LCX 

-SYESNO 

F20A 

BDF717 


i-SR 

PRINT 

F20? 

BDF131 


-SR 

CHYES 

F20A 

2622 


BNE 

INDONE 

F20C 

CEFlEts 


LCX 

-SINPORT 

F20F 

DFOO 


STX 

BACKUP 

F2U 

cefobc 


LCX 

><SPORTB 

F2IA 

8DF717 


■-SR 

PRINT 

F217 

3£ 


WAI 


F218 

9612 


LCAA 

RECEIV 

F2l A 

BDF6b3 


-SR 

ASCHEX 

F210 

5F 


CLRB 


F21E 

OD 


EEC 


F21F 

59 

ROLL 

PC Lb 


F220 

aA 


CECA 


F221 

26FC 


BAE 

ROLL 


;ge.t starting date and time 
;tell remember this is starting 
information 

;STORE THE STARTING TIME AND DATE 
iPRINT CR AND LF 

;SET BACKUP FOR *DEl* 

;Load stop 

;PRINT tTSTOPt? 

JGET STOPPING DATE AND TIME 
;TELL remember TO STORE THIS AS 
;th£ STOPPING information' 

;STORE stopping DATE AND TIME 
;PRINT UF AND CR 

5 set backup FOR *0EL* 

;load warmup 

;PRINT ♦7WARMUP+7 
;L0AD TIMEt/ 

IPRINT -rTTIMEt/tT 
IGET Two DIGITS 
ISTOBE THE WARMUP TIME 
IPRINT LF AND CR 

(SET BACKUP for ^OEU* 

ILOAD FREQUENCY OF... 

IPRINT ♦7FREQ. OF ....+7 
IPRINT -f/IXXX) 

IPRINT IT 

iGET Three digits 

I STORE LOW HALF OF FREQ. 
iSTORE HIGH half OF FR£q. 

I SET UP BACKUP FOR «OEL® 

1-.$ OF READINGS NEED TO TAKE 
ICLEARS WHICH additional PORTS 


IPRINT +7ADD1TI0NAL SENSOR.. +7 

IPRINT t7tYES*NO)t/+7 
IWAIT FOR RESPONSE 
I IF NOT ZERO THEN DONE 

I SETUP BACKUP FOR *DEL* 

IPRINT tTPORT NUMBER.. ..t7 
IWAIT FOR RESPONSE 

ICHANGE TO HEX 
I clear -fB 
iSET CARRY = 1 
IROTATE LEFT ^-B 
IOECREmENT +A 
ILOOP UNTIL +A=0 
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FZZ3 

FA402A 


cfab 

portbt 


;OR tB WITH portbt 

F226 

F7402A 


stab 

portbt 


{STORE THE RESULT 

F229 

7C402t3 


INC 

nports 


{INCREMENT THE NUMBER OF READINGS 

F22C 

20CA 


BRA 

MOREP 


{BRANCH BACK FOR MORE 

F22t 

&DF55& 

inoone 

vSR 

LFCR 


{SKIP A LINE 

F231 

CEF12X 


ucx 

-.sdonein 


. 

F23^» 

BDF717 


■wSR 

PRINT 


{PRINT tTREASSIGN PORTS, .,,t7 

F237 

CEF002 


LEX 

-SYESNO 



F23A 

BDF717 


■ vSR 

PRINT 



F230 

B0F131 


vSR 

CHYES 


{CHECK RESPONSE 

F240 

27A9 


BEQ 

INPORT 


{IF yes branch Back to inpqrt 

F242 

CEOOOD 


LCX 

-<50000 



F245 

DFOO 


STX 

BACKUP 


{CLEAR BACKUP 

F247 

39 


RTS 



{RETURN TO CALLER 



»*»«**•«««««•* 





•frtSETS 

THE DATE AND TIME. 



F24B 

CEF006 

geidat 

LCX 

-iOATEa 


{LOAD DATEt/ 

F24b 

BDF717 


..^SR 

PRINT 


{PRINT ♦70ATEt/t7 

F24t 

0OF38C 


ivSR 

DATE 


{INPUTS THE DATE 

F25i 

CEFOOO 


LCX 

-SSPACES 


{LOAD SPACES 

FES'* 

BUF717 


vSR 

PRINT 


{PRINT FIVE spaces 

F257 

CEFOIA- 


LCX 

«t$ timed 


{LOAD T1ME+/ 

FtSA 

BDF717 


■^SR 

PRINT 


{PRINT ♦7TlMEt/-7 

F250 

3DF39E 


vSR 

time 


{INPUTS THE time 

F26U 

39 


RTS 











*4C0hpareS start date to 

PRESENT 



*DAT£, 

RETURNS A 0 IN 4A 

IF NOT 



»THE same* 1 

IF same. 



F261 

B&4011 

PSCOHP 

U'CAA 

smonth 


{LOAD tA with STARTING MONTH 

F26A 

B140&5 


ONPA 

pmonth 


{COMPARE *A TO THE PRESENT MONTH 

F267 

2702 


BEQ 

msame 


{IF EQUAL branch TO MSAME 

F269 

4F 


CLRA 



;IF NOT EQUAL CLEAR +A 

F26A 

39 


RTS 



{AND RETURN VALUE 7A=0 

F268 

B6*0l2 

MSAKE 

LCAA 

SOAY 


{LOAD tA WITH STARTING DAY 

F26E 

B1400O 


CPPA 

poay 


{COMPARE ♦A TO THE PRESENT DAY 

F271 

2702 


b£Q 

dsame 


{BRANCH IF THE SAME TO DSAME 

F273 

4F 


CLRA 



{IF NOT THE same clear +A 

F27A 

39 


RTS 



{AND RETURN value -I'AsO 

F275 

8601 

DSAFE 

LCAA 

vSSO 1 


{THE dates are the SAME 

F277 

39 


RTS 



{RETURN VAuUE 4A=l’ 



»»««•«»«««««««»«««« 





41-SlORES THE 

NUMBERS IN MONTH, 

DAY, 



«T iF'Ehj 

AND TIMEL into 4 

CONTIGUOUS 



«LOCaTIOnS. 

♦The address 

OF The first 



»loC4TIqn must be in the 

INDEX 

REG. 



*bEF0RE 

TFE subroutine IS 

CALLED, 

F278 

B640G1 

REHEM 

LCAA 

month 


{LOAD month into +a 

F276 

A700 


staa 

00, X 


{STORE INTO first LOCATION 

F27D 

B64002 


LCAA 

DAY 


{LOAD' DAY INTO tA 

F280 

A701 


.staa 

01, X 


{STORE DAY INTO SECOND LOCATION 

F262 

B64003 


LCAA 

TIHEH 


{LOAD TImEH into 

F265 

A702 


staa 

02, X 


{STORE TIMEH INTO THIRD LOCATION 

F2S7 

B64004 


LCAA 

TIMEL 


{LOAD TIMEL INTO tA 

F2SA 

A703 


STAA 

03, X 


{STORE TIMEL INTO FOURTH LOCATION 

F28C 

39 


RTS 



{RETURN 
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si,eroutine resets the clock 
*T0 time c. 


F28U 

36 RCEK 

F5HA 


;SAvE tA 

F28E 

37 

F5HB 


(SAVE 

F2bF 

B6EO00 

L’EAA 

CLOCKA 

iLOAO CLOCKA INTO ■'■A 

F29E 

16 

TAB 


(COPY »A INTO +6 

F293 

8A01 

CPAA 

-.$501 

(♦0+R tA WITH 01 (HEX) 

F29S 

BA7F 

ANDA 

-iSSTF 

(tA+N+O tA r»lTH 7F (HEX) 

F297 

B7E000 

S7AA 

CLOCKA - 

(STORE tA IN CLOCKA 

F29A 

F7EO00 

STAB 

CLOCKA 

(RETURN CLOCKA TO ORIGINAL VALUE 

F29D 

33 

PL LB 


(RESTORE +B 

FS9E 

32 

PLLA 


(RESTORE +A 

F29f 

39 

RTS 




»««*««•««««»««•*«*««•■»<» 


*+o+u+t+a transmits to the output device 

* (TERMINAL OR TELETYPE) THE CONTENTS 
*OF REGISTER ^•A, 


F2A0 

37 

OUTA 

FSHB 


(SAVE tB 


F2A1 

F6D80O 

bACKO 

bCAB 

CNTRL 

(LOAD tB WITH ♦A+C+I^-A CONTROL 

WORD 

feaa 

C402 


ANDB 

-iSTMASK 

(CHECK BIT 1 


F2A6 

27F9 


BEQ 

BACKO 

(WAIT IF BIT IS 0 


F2AB 

B70801 

foRwopd 

STAA 

DATA 

(WRITE OUT 1-A 


F2A» 

33 


PLLB 


(RESTORE +8 


F2AC 

39 


RTS 






««•*«»»««««««»«•««»«*«« 










S’+INPUTS THREE 

digits into t+A+ai. 


F2AU 

3E 

THRDie 

WAI 


(WAIT FOR FIRST DIGIT 


F2A£ 

9612 


L'CAA 

RECEIV 

(LOAD DIGIT INTO +A 


F2B0 

BDF683 


•vSR 

ASCHEX 

(CONVERT TO HEX 


FEB3 

BDF15A 


■wSR 

AXTEN 

(MULTIPLY by TEN 


F2B6 

B7A01C 


STAA 

tempi 

(STORE IN tempi 


'"2B9 

5F 


CLRB 


(CLEAR tB 


F2BA 

CE0009 


LCX 

-.$9 

(PREPARE TO mult. TEN TIMES 


F2BO 

bbaoic 

TENTIm 

ACDA 

tempi 

(ADO TEMPI TO SELF NINE TIMES 


F2C0 

C900 


ACCB 

-.500 

(A 2 REGISTER ADD, ADD CARRY 


F2C2 

09 


CEX 


(DECREMENT LOOP COUNTER 


F2C3 

26F8 


BNE 

tentim 

(BRANCH UNTIL ADDED 9 TIMES 


F2CS 

B7A01C 


STAA 

TEMPI 

(STORE VALUE OF FIRST OIGIT 


F2Cb 

F7A01O 


STAB 

TEMP2 

(STORE LOWER HALF OF DIGIT 


F2Cb 

BDF15A 


.»SR 

TWOOIG 

(GET THE OTHER TWO DIGITS 


F2CE 

5F 


CLRB 


(CLEAR tB 


F2CF 

88401C 


ACDA 

tempi 

(ADD LOWER half OF FIRST DIGIT 


F2Dc 

F9A01U 


ACCB 

TEmPZ 

(ADD UPPER HALF OF FIRST DIGIT 


F2DS 

39 


RTS 


(DECIMAL value In CtAt81. 









*i.MidMGI-T minus present 

time put in ItAtSl. 


F£D6 

3605 

mionig 

LCAA 

-.SS05 

(2A-(00 = OStAO IN HEX 


F206 

C6A0 


LCAB 

.«S$A0 

(LOAD THIS INTO [tAtBJ 


F20A 

F0A003 


•SLBB 

PTiHEL 

(SUBTRACT LOWER HALF OF PRESENT 

time 

F20U 

B2A007 


.SECA 

PTIMEH 

(SUBTRACT UPPER HALF OF PRESENT 

TIME 

F2E0 

39 


RTS 







•otUpOATES the present TIM£» DAYj and MONTH tJASED 
*ON THE LAST TIME IN THE CLOCK (LT IMEh ,LT IMEL) . 
F2E1 8OA00S UPTIME UCAA PTImEL 

F2E4 FbAOO? LCAB PTImEH 
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F2E7 

BbAOOA 


ACDA 

LMINL 

F2EA 

F9400S( 


ACCB 

LHINH 

F2ED 

B7a00« 


STAA 

PTlMEb 

FcFO 

F74007 


STAB 

ptimeh 

F2F3 

4C 


INCA 


F2F4 

C105 


OFPB 

-iSSOS 

F2Fb 

2703 


EEO 

LOWCHK 

F2F8 

2E06 


BCT 

FIXDAY 

F2FA 

39 


fts 


F2FB 

SIAO 

LOwChK 

CFPA 

iSSAO 

F2F0 

2201 


BH 

FIXDAY 

F2FF 

39 


PTS 


F30U 

SOAl 

fiaday 

slba 

-iSSAl 

F302 

C205 


SECB 

-«$SQ5 

F304 

B7A00O 


STAA 

ptimel 

F307 

F74007 


STAB 

ptimeh 

F3&A 

BbAOOo 


DC A A 

PDAY 

F3oU 

4C 


INCA 


F30C. 

B7400b 


STAA 

POAY 

F3U 

alic 


OMPA 

nSSlC 

F313 

2C01 


5(;E 

MONCHK 

F315 

39 


RTS 


E31P 

C6CE 

MQNCHK 

UCAB 

->5C0NE 

F3ie 

F7A01U 


STAB 

TEmP2 

F31B 

C6EF 


L'CAB 

->$CTWO 

F310 

F7401E 


STAB 

TEMP3 

F32G 

CbBB 


UCAB 

--SCTHREE 

F322 

F7401F 


STAB 

TEMP4 

F32S 

F6400S 


LCAB 

PMONTH 

F328 

5A 

CSHIFT 

CEC8 


F32S 

2Do8 


BIT 

MONDAY 

F32B 

BDF34b 


wSR 

TEMPSH 

F32L 

BDF34b 


wSR 

TEMPSH 

F33l 

EOF 5 


ERA 

CSHIFT 

F333 

FbAOIC 

MONDAY 

LCAB 

TEMPI 

F336 

C403 


AN OB 

-SS03 

F33B 

CblC 


ACDB 

->$28 

F33A 

11 


CEA 


F33B 

2E01 


BGT 

MONFIX 

F33D 

39 


PTS 


F33£ 

SbOI 

mqnfix 

LCAA 

-i$l 

F340 

B7400b 


STAA 

PDAY 

F343 

B640Q5 


LCAA 

PMONTH 

F346 

4C 


INCA 


F3a7 

B74O03 


STAA 

PMONTH 

F34A 

39 


PTS 







*4bEFT 

St-IFT 

TEMP1»2,3»4 

F34B 

7O401F 

tempsh 

ASL 

TEMP4 

F34E 

79401b 


PCL 

TEHP3 

F351 

79401D 


FCL 

TEMP2 

F35A 

7940IC 


RCL 

TEMPI 

F357 

39 


RTS 







»“TuRNS 

ALL POWWER OFF. 

F35B 

bbbOOu 

POwOFF 

LCAA 

CLOCKA 


;add last tim£ in Clock 
;both low and high order 

5 STORE BACK IN MEMORY 
{PROVIDES A CHECK FOR LOWCHK 

{IS IT equal to high order of one day 

{IF YES eo CHECK LOw HALF' 

{IF bREATER BRANCH TO FIX DAY 
{RETURN TO CALLER 

;is LOW half = LO»i half on one day 

{IF LARGER GO TO FIXDAY 
{RETURN TO caller 

{SUBTRACT 24 HOURS (IN mInS.) 

{STORE BACK INTO PTlMEH+L 

{INCREMENT THE DAY 
{STORE THE DAY 
{COMPARE TO 28 DAYS 
{IF greater than GOTO MONCHK 
{RETURN TO CALlER 


{i-fasMONTH 

{DECREMENT THE MONTH 
{IF ZERO done shifting 

{SHIFT CON£,CTWO,CTHREE TwICE 
{LOOP SACK 

{GET OUT THE NUMBER OF DAYS 
{OVER 28 THAT ARE IN THIS MONTH 
{ADD 28 TO GET DAYS IN MONTH 
{COMPARE day TO DAYS IN MONTH 
{IF greater than GOTO MONFIX 
{RETURN TO CALLER 

{RESET DAY TO 1 


{INCREMENT THE MONTH 
{RETURN TO CALLER 
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F35B 

8A20 

CFAA 

-.£$20 

F350 

b7£000 

STAA 

CLOCKA 

F3fc0 

8A18 

CFAA 

-£$ia 

F362 

bADF 

aaoa 

.^SSDF 

F36^ 

B7EO00 

STAA 

CLOCKA 

F367 

39 

FTS 

*•»•*«•***«*****•****•*•» 
otTuRNS CFF ♦-15(S)f*5 

F366 

S 6 E 0 OO 

wRHPOh LCAA 

CLOCKA 

F36B 

SAIO 

CFAA 

-^SSlg 

F3feCr 

B7E00ti 

STAA 

CLOCKA 

F370 

6A28 

•CFAA 

-.5S28 

F372 

6AEF 

AKOA 

-.SSEF 

F37'^ 

B7E00 Cr 

■STAA 

CLOCKA 

F377 

39 

RTS 





*»ThIS SteBOUTlNE MOVES WHAT IS IN 
«PMONTH-FTIMEL INTO HONTH-TIMEL, 


F37b 

CEAOOi 

UNSToF 

LCX 

-.SMONTH 



J»l48=L0CAT10N OF MONTH 

F37b 

A604 

UNROCK 

LCAA 

04»X 



J4As+ItR*4 

F370 

a700 


STAA 

00«X 



;STORE IT IN ♦I+R 

F37F 

Ob 


I'KX 




5 increment ♦14R 

F38U 

dCAOOS 


CFX 

-.SPMONTH 



*IF EQUAL w£ are DONE 

F383 

26F6 


BNE 

unrock 



SLOOP BACK IF NOT 

F36S 

39 


FTS 













*C+AtBl(*[f A4B] 

- (WARM-UP 

TIME) 

F36t) 

F0401B 

SUBWTI 

SLBS 

WTIhE 




F369 

820 0 


SEGA 

— S$00 




F3fats 

39 


RTS 













»tlNPUTS CATE 

OF THE FORM 

4646/+646. 



*+STORES INPUT 

IN MONTH 

AND 

DAY, 

F36C 

36 

UATt 

F5HA 





F 38 D 

37 


FSHB 





F38E. 

bOFlSA 


«SR 

TWODie 



SINPUT TWO DIGITS 

F391 

674001 


STAA 

MONTH 



i STORE THEM IN MONTH 

F39A 

3E 


WAI 




S«AIT‘F0R NEXT CHAR 

F39S 

bOFlSA 


vSR 

TWODie 



SINPUT TWO DIGITS 

F390 

87400t 


STAA 

DAY 



SSTORE IN DAY 

F39fa 

33 


FLLB 





F39C 

32 


PL LA 





F39D 

39 


RTS 







«««««« 






*+1nputs time 

OF the form 

4646t)4646. 



*i'ST0RES INPUT 

IN TIMEH 

AND 

TIMEL. 

F39C 

36 

TIME 

F5MA 





F39F 

37 


FSHB 





F3A0 

aoFisA 


v£R 

TWODie 



SINPUT TWO DIGITS 

F3A3 

SF 


CLRB 




SCLEAR 4B 

F3AA 

46 


ASLA 




5F2 

F3Ab 

48 


ASLA 




5F4 

F3Ab 

874004 


STAA 

timel 



(STORE TEMPORARILY HERE 

F3A9 

48 


ASLA 




SFS 

F3AA 

48 


ASLA 





F3Ab 

S9 


PC LB 




'5F16 

F3AC 

48 


ASLA 
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F3At; 

59 

PCLB 


i<32 

F3AE 

48 

ASLA 



F3AF 

59 

PC LB 


!*64 

F3B0 

riOAOOH 

SLBa 

timel 

5ttBtA3=60w{2 DIGITS) 

F3B3 

C200 

£ECB 

^SSO 0 


F3Bb 

B74004 

£7AA 

TIMEL 


F3Bb 

F74O03 

STAB 

TiMEh 

SSTORE THE TIME IN TIMEH.L 

F3B» 

3£ 

KAI 


iWAlT'FOR ANOTHER INPUT 

F38C 

BOF 15A 

vSR 

TWODIG 

»GET TO minute digits OF TIME 

F30F 

5F 

CURB 


; CLEAR ^B 

F3CU 

BB4004 

ACOA 

TIMEL 


F3C3 

F94003 

ACCB 

TIMEH 

JADO FIRST TWO digits IN MINUTES 

F3C6 

874004 

STAA 

TIMEL 


F3C9 

F74003 

STAB 

TIMEH 

{STORE THE TIME 

F3CC 

33 

PL LB 



F3CD 

3e 

PL LA 



'r3C£ 

39 

FTS 









<»+C0MPARE5 [PDAY *WARMUP 

TIMEI TO 



*SUAY returns 

0 IN +A IF 

NOT THE 



*SAME,1 IF THE 

SAME, 


F3CF 

bdf59«; 

PSCHPW wSR 

STIHE 

{SAVE PMONTH-LMINL 

F3L)2 

56401 B 

LCAA 

WTIME 

JtA=WARMUP TIME 

F3D5 

B740OA 

STAA 

lminl 


F3D8 

7F4009 

CLR 

LMINH 

{SET LAST CLOCK TIME TO WAHMUP TIME 

F3Db 

BDFEEl 

■wSR 

uptime 

{ADD The warmup TIME TO The PRESENT TIME 

F3uE 

B0F261 

vSR 

pscomp 

}NOw COMPARE PRESENT TO StARTING' TIME 

F3£i 

60F583 

•vSR 

RTIHE 

{RESTORE PMONTH-LMlNL 

F3EA 

4D 

XSTA 


{TEST +A 

F3E5 

39 

FTS 


{RETURN TO CALLER 







♦♦The contents 

OF l-A ARE 

CONVERTED 



♦TO TWO ♦B+C^O 

DIGITS. 


F3E0 

37401D 

BCO STAA 

TEMP2 


F3E9 

7F401C 

CLR 

TEMPI 


F3EC 

F&401C 

LCX 

TEMPI 

{♦I+Rs^A 

F3EF 

4F 

CLRA 


{CLEAR tA 

F3Fu 

8C000O 

BCULOP CFX 

'^SSQO 

{IF ZERO THEN CONVERSION DONE 

F3F3 

2706 

BEQ 

BCDDON 

{IF EQUAL branch TO BCDDON 

F3Fb 

09 

CEX 


‘.DECREMENT +I+R 

F3F& 

8B01 

ACDA 

xSSCll 

{INCREMENT 4A 

F3Fb 

19 

CAA 


{BCD ADJUST ♦* 

F5F9 

20F5 

BFA 

BCULOP 

{BRANCH BACK FOR MORE 

F3FB 

39 

BCOCON PTS 


{RETURN TO CALLER 







♦♦PRINTS THE USERt7S OPTIONS. 

F3FC 

aOFTCO 

DISPCH .vSR 

ALERT 

{PRINTS WARMUP POWER ( ♦©♦N, +OtF^F ) . 

F3FF 

CEF406 

LCX 

-.SDSPEC 


F402 

BDF717 

.^SR 

PRINT 

{PRINT THE OPTIONS 

Fao5 

39 

FTS 







F40fc 

412920 

DSPEC FCC 

♦7A) iNITlALIZlNGt? 

F<*C9 

494E49 




F4oC 

544941 




F40F 

4C495A 




F412 

494E47 




F41B 

205041 

FCC 

■f? parameters +7 
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F^lfe 

S2414C 




F4le 

465443 




F4iE; 

525320 




F421 

OOOATF 


FCB 

S0D.$0A»S7F,S7F 

F42<* 

7F 




F42S 

422920 


FCC 

478) CURRENT SENSOR +7 

F428 

43555<i 




F426 

524542 




F42E 

542053 




F431 

454E53 




F434 

4F5220 




F437 

524541 


FCC 

47READIN6S47 

F43* 

44494 E 




F*3t) 

4753 




F 43 F 

0D0A7F 


FCB 

SODfSOA*S7FfS7F 

F442 

7F 




F443 

432920 


FCC 

47C) sequential REA0INSS47 

F 4*6 

534551 




F4*9 

554545 




F 44 C 

544941 




F44F 

4C2052 




F452 

454144 




F 455 

494E47 




F45b 

53 



• 

F459 

OOOA7F 


FCB 

SOD»50a*47F,S7F 

F45C 

7F 




FivSO 

442920 


FCC 

470) INITIALIZATION'^? 

F460 

494249 




F 463 

544941 




F 466 

4C495A 




F469 

415449 




F46C 

4F4E 




F46E 

0OOA7F 


FCB 

$0DfS0AtS7F t$7F 

F471 

7F 




F 472 

452920 


FCC 

47E) DUMP47 

F47b 

445545 




F 478 

50 




F479 

0DoA7F 


FCB 

S0D«S0AtS7FtS7F.S20tS20tS20tS20. 

F47C 

7F2020 




F47F 

202020 




F462 

26434F 


FCC 

/(CONTROL 47S47 STOPS PRINTOUT)/ 

F485 

4E54S2 




F4fe0 

4F4C20 




F48e 

275327 




F48E 

205354 




F 49 I 

4F5053 




F494 

203052 




F 497 

•494E54 




F49A 

4F5554 




F49D 

29 




F49E 

OOOA7F 


FCB 

SOD«SOAiS7FiS7F.OO 

F4A1 

7 F 0 O 









4+ThIS 

SL6R0UTINE DISABLES THE MEMORY. 

F4A3 

36 

DiSF'EF 

FSHA 


F4A4 

a63F 


UCAA 

-SS3F 

F4A6 

84EOOU 


A^UA 

CLOCKA 
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F-.A9 

B7E00U 

STAA 

CLOCKA 


FAAC 

32 

FLLA 



FifAU 

39 

PTS 









A•^S^,1FT left C+A+B], 


F4AE 

58 

SHFrOL aslb 



F4AF 

49 

RCLA 



fabc 

39 

RTS 









o'^COHPAR£S PDATE TO FOATE. AND 




aREtuRNS a ZERO 

IF NOT THE 




ASAME. 



FabI 

37 

PFCOmP fshb 



F4B2 

F64011 

LCAB 

SMONTH 


F4B5 

F7401C 

STAB 

TEMPI 

?SAV£ SMONTH 

F4fjfa 

F&4012 

LCAB 

SDAY 


F48B 

F7a0 IL 

STAB 

TEMPz 

ISAVE SDAY 

F4dE 

B64017 

LCAA 

FMONTH 


FaCI 

B7401I 

STAA 

SMONTH 

JPUT FMONTH IN SMONTH 

F 4 C 4 

BbAOlo 

LCAA 

FOAY 


F4C7 

B740I2 

•STAA 

SOAY 

5PUT FDAY in SOAY 

F4CA 

BDFE6i 

■vSR 

PSCOMP 

JCOMPARE SDATE TO PDATE 

F4CD 

FoAOlC 

bCAB 

TEMPI 


F 4Du 

F74011 

STAB 

SMONTH 

^RESTORE SMONTH 

F 4 D 3 

FfeAOiO 

LCAB 

TEHP2 


F 4 O 0 

F74012 

.STAB 

SOAY 

{RESTORE SDAY 

F409 

33 

FLLB 



FaDA 

aD 

TSTA 


(TEST +A 

F4DB 

39 

FTS 


{RETURN TO caller 




**ThIS SLEROUT:nE moves SMONTh- 
*LfREG INTO LOCATIONS PMONTH- 
O’LMlNL. 


F40C 

CE4005 

STOPS 

LCX 

-.SPMONTH 


F 4 DF 

A80C 

ROCK 

LCAA 

12«X 

{LOAD THE NEw WORD 

F4Ei 

a700 


STAA 

SOO«X 

{WRITE OVER OLD WORK 

F4E3 

08 


I.NX 


{INCREMENT I’l+R 

F4E4 

8C400P 


CFX 

*«SLMINL*1 

{COMPARE TO LMINL*1 

F4E7 

26 F 6 


bnE 

ROCK 

{STOP IF EQUAL 

F4E9 

39 


PTS 


{RETURN TO CALLER 




^>■^THlS SLHROUTINE increments The ^l+R 
oEOUaL tc the number of memory 
^locations needed to store each 
*SEI OF readings. 


F4EA 

B6402E 

irloop 

LCAA 

INCIR 

{<‘A=*'$ OF INCREMENTS 

F4ED 

08 

IRLOP 

ItNX 


{INCREMENT ♦i'l'R 

FitEE 

•♦A 


CECA 


{DECREMENT +A 

faef 

26FC 


&NE 

IRLOP 

{IF +A equals 0 QUIT 

F4F1 

39 


PTS 


{RETURN TO caller 




*tTK,lS SLBROUTINE TAKES THE DATE 
«aNU TIME THAT ARE IN MONTHiDAY» 
oTlMEhi AND TIMEL AND COMES BACK 
*v*1TH the ADDRESS OF THE FIRST 

omEmory location that holds that 

*R£A0INC IN THE tl^R, +IF THAT 
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■»Bfc-AClNC hAS 

NEVER TAKEN THEN 




«n-Ii-RsOOOO , 



F4F2 

B0F592 

rtaken 

•vSR 

STlME 

:SAVE PMONTH-LMINL 

F4F5 

BDF40C 


*SR 

STOPS 

; MOVES SMONTH-LFREQ TO MONTH-LMINL 

F4Fb 

CE404U 


lcx 

-SSTARTH 

J+I+R=STARTINS LOCATION OF DATA 

F4FB 

BC402b 

LOt-LOP 

CFX 

MOATAH 

;is tUR past current readings^/ 

F4F£ 

2713 


EEO 

OVERF 

5 IS YES THEN READING NOT TAKEN 

F50U 

BDF520 


■wSR 

pincmp 

JCOMPARES H0NTH-TIMEL> TO PMONTH-LMINL 

F5o3 

2611 


BNE 

retune 

fIF NOT Of THEN LOCAT-ION FOUND 

F505 

01 


•NCP 



F &06 

Ol 


.NCP 



F5o7 

01 


iNCP 



FSOb 

B0F2E1 

RJMP 

■vSR 

uptime 

;IF Of THEN INCREMENT THE TIME 

FSOb 

bl 


.NCP 



F50C 

Ol 


■NCP 



F50B 

Ol 


NCP 








;AN0 TRY AGAIN 

F50E 

SDF4tA 


.»SR 

IRLOOP 

5 INCREMENT +I+R THE CORRECT AMOUNT 

F5li 

EOcS 


BRA 

LOCLOP 

5BRANCH BACK FOR TEST 

Fbl3 

CEOOOO 

OVtRF 

LCX 

->SSOOOO 

?REAOING NOT TAKEN 

F516 

FF4021 

RETunE 

SIX 

TEMP12 

JSTORE TEMP12 

F519 

BDF5B3 


*SR 

RTIME 

IRESTORE PMONTH-LMINL 

F51C 

FE4021 


UEX 

TEHP12 

JRESORE tltR 

FblF 

39 


RTS 


; RETURN TO CALLER 











«+ThlS 

SUBROUTINE compares MONTH 

If 



*OAY,TlPEFiTIHEL TO PHONTHi 




*POAYtPTIPEHi 

ptimel respectively 

• 



^■MF MONTP,,, 

TIHEL OCCURED BEFORE 



*PM0Mh 

...ptihel* then a one 




«is returned 

IN tA OTHEWISE A 




*Z?RO IS RETURNED. 


F520 

FF4021 

PINChP 

STX 

TEMP12 

5SAVE tl+R 

F523 

C£4001 


LCX 

iSMONTH 

;titR = address of month 

F52b 

8C4Q03 

XtOOP 

CFX 

-.STIHEH 

5 IS -H+RsAODRESS of PMONTh 

F529 

2709 


EEQ 

auequal 

iNOW CHECK time 

FS2B 

AbOO 


UCAA 

SOO.X 

JONE OF FIRST WORDS 

F52D 

A104 


OPPA 

i04»X 

(COMPARE TO ONE OF SECOND WORDS 

F52F 

221E 


BH 

XOVER 

(IF FIRST TIME IS AFTER SECOND 






(THEN THIS IS NOT TIME 

F53i 

00 


INX 


(INCREMENT tl^R 

F532 

20F2 


BRA 

XLOOP 

(BRANCH BACK TO TEST NEXT LOCATION 

F53‘f 

F64003 

ALE->JUAL 

LCAB 

TIMEH 


F537 

B6400A 


LCAA 

txhel 


F53A 

B0400b 


SLBA 

PTIMEL 


Fs3D 

F24007 


SBC8 

PTIMEH 


F54U 

2U09 


elt 

EQUAL 


F5^^^ 

2702 


EEQ 

SECCHEK 


Fb44 

2009 


BRA 

XOVER 


F546 

4b 

secchek 

tsta 



F547 

2702 


BEu 

equal 


F549 

2004 


ERA 

XOVER 


F 54b 

8801 

EQUAL 

LCAA 

->SS01 

(TIME FOUND LOAD I 

F54D 

2001 


ERA 

XDON 

(GOTO'DONE 

F54F 

4F 

xover 

CLRA 

' 

(NOT FOUND load 0 

F550 

FE4021 

XOON 

LCX 

TEMP12 

(RESTORE tIfR 
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F553 

F554 


F555 

F55t> 

F556 

F55tJ 

F55t> 

F560 

fihi 

F&6b 

F568 

F569 


F56A 

F&60 

F56D 

F5oF 

F570 

F572 

F57<t 


F57S 

FS77 

F579 


F57A 

F57b 

F57C 

F57U 

F57E 

F57F 

F58C 

F562 

Fb83 

F58tj 

F589 

F5BA 

F5BD 

Fb90 

FS91 


4D tsta ;test »a 

39 fts ; return to caller 

««-«<>«•*»«»«* 

oi-ThIS sleroutine prints a 
*L1nE FEEC tft+F) and a CARRAGE 
^return (tCtR). tRUBOUTS ARE 
*1NSEBTEC incase a TELETYPE 



*15 

USED, 


36 

lfcb 

FSHA 


860D 


LCAA 

-•SSOD 

BOF2AO 


■^SR 

OUTA 

860A 


LCAA 

iSSOA 

8DF2A0 


vSR 

OUTA 

867F 


LCAA 

-.SS7F 

BDF2A0 


vSR 

OUTA 

BDF2A0 


•wSR 

OUTA 

32 


FLUA 


39 


PTS 



otThlS SLEROUTINE SHIFTS A 
*16 BIT VfCRD A BITS TO THE LEFT, 
*<-thE 16 EIT WORD ARE 2 MEMORY 
*LOCATIQnS» the FIRST IS POINTED 
*TO BY Til-E <-I+R. 


af 

LSHFtA 

CLRA 


{CLEAR aA 

6801 

AROUND 

ASL 

SOltX 

{SHIFT LOW ORDER WORD 

6900 


RCL 

soo.x 

{SHIFT HGH ORDER WORD 

4C 


INCA 


{INCREMENT +A 

aiOA 


CHPA 

^SSOA 

{TEST FOR A SHIFTS 

26F7 


BNE 

AROUND 

{IF NOT done LOOP Back 

39 


RTS 


{RETURN TO caller 


*«***«*♦*« »************ 


*t‘T;lIS SUBROUTINE SHIFTS A 16 BIT 
*W0R0 I BIT TO THE RIGHT. +.THE WORD 
*IS POINTED TO BY THE tItR, 

6AOO ShiFTfi USB OOiX I SHIFT THE HIGH ORDER rtORD 

6601 PCR 01 {SHIFT THE LOw ORDER WORD 

39 RTS {RETURN TO CALLER 

«»•««»««*««**« 


»*T>,IS SLEROUTINE PRINTS OUT ONE 



*8TTE. 

♦ THE 

BYTE IS IN aA. 


37 

bytout 

FSHB 


{SAVE A6 

IP 


TAB 


{ABsaA 

AA 


lsra 



AA 


LSRA 



AA 


LSRA 



44 


LSRA 


{SHIFT aA RIGHT A BITS 

CAOF 


ANOB 

-SSOF 

{MASK OUT upper a BITS 

37 


PSHB 


{SAVE AB 

B0F68U 


i»SR 

HEXASC 

{CONVERT TO HEX 

B0F2A0 


•vSR 

OUTA 

{PRINT 

32 


PL LA 


{GET lower a BITS 

BDF68D 


-SR 

HEXASC 

{CONVERT TO HEX 

B0F2A0 


.-SR 

OUTA 

{PRINT AA 

33 


PLLB 


{RESORE a6 

39 


RTS 


{RETURN TO CALLER 
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««»«««««»«««»««»*«»«« 

®+Tt,lS SUBROUTINE SaVES PHONTH- 
*L«1nL in temporary uOCAIONS. 


F592 

36 

stime 

PSHA 


(SAVE +A 

Fb93 

37 


PSHB 


(SAVE +8 

F594 

8DF616 


vSR 

SATS 

(CHECK IF An STIME 






(HAS BEEN DONE 






(WITHOUT AN RTIHE FOLLOWING IT 

FS97 

26C2 


snE 

CSTIME 

(IF IT HASNfTT THEN BRANCH 

FS 99 

20IS 


ERA 

- SDON 

(ILLEGAL request LEAVE SUBROUTIHE 

F598 

CE.4005 

CSTImE 

OCX 

-.spmonth 

(tltRsADDRESS OF PhONTH 

FS9£ 

A6D0 

NO?Hi 

LCAA 

SOOfX 

(+a=value to be moved 

F5A0 

A706 


.STAA 

S06«X 

(STORE VALUE IN A TEMP, LOC. 

F5a2 

08 


I'NX 


(INCREMENT 

F5A3 

BCAOQb 


CFX 

-STEMP6 

(ARE WE OONEt/ 

F5A6 

26F6 


EN£ 

NOCHl 

(IF NO LOOP BACK 

F5a6 

8620 


LCAA 

-SS20 


F5AA 

BA400U 


CPAA 

STATUS 


fsao 

B7400U 


STAA 

status 

(SET STATUS BIT SHOWING AN 






(STIME HAS been DONE 

F5B0 

33 

SOON 

PUL8 


(RESTORE +8 

F5B1 

32 


PULA 


(RESTORE +A 

F5B2 

39 


RTS 


(RETURN TO caller 







*fTnIS 

subroutine restores the 

VALUES 



*OF PMONTI-- UMlNt. {■fNOTE«‘; +IF 

AN STIME 



*has not been 

DONE THIS SUBROUTINE 



*wIUL DO ‘NOTHINS,) 


F5B3 

3b 

RTImE 

PSHA 


(SAVE tA 

FSS'f 

37 


PSHB 


(SAVE tS 

F5Bb 

B0F61b 


»SR 

SATS 

(CHECK FOR STIME DONE 

FSBtt 

2702 


EEQ 

CRTIHE 

(IF AN STIME HAS BEEN DONE BRANCH 

F5BA 

2015 


ERA 

RDON 

(STIME NOT DONE EXIT ROUTINE 

fsbc 

CE4005 

CRTImE 

UCX 

-iSPMONTH 

(♦I'fBsPHQNTH 

F5BF 

A606 

NOCI12 

L-CAA 

$06, X 

(LOAD value 

Fad 

A7oo 


STAA 

SOOtX 

(RESORE THE VALUE 

FSC3 

08 


INX 


(INCREMENT *ItR 

F5C4 

BC400b 


CPX 

-STEHP6 

(ARE WE DONEt/ 

F5c7 

26F6 


BNE 

N0CH2 

(IF NO, THEN LOOP BACK 

FbCS 

860F 


LCAA 

-5S0F 


F5Cb 

B44000 


AN DA 

STATUS 


FSCt 

B74000 


STAA 

STATUS 

(RESET STATUS BIT 

F5DX 

33 

RDON 

PU L8 


(RESTORE +8 

F502 

32 


PULA 


(RESTORE -+A 

FSD3 

39 


RTS 


(RETURN TO CALLER 

' 






*fTHlS 

SUBROUTINE TAKES WHAT IS 




*IN +8 

ANC PRINTS IT. tTHEN IT 




opFilNTS 

WPATS 

IN TEMPS (USUALLY 




«A +7t; 

+ 7 OR 

A +7/t7) . tAND FOLLOWS 



*THA7 by the 

CHARACTER IN tA. 


F5D4 

36 

varout 

PSHA 


(SAVE TA 

FbOS 

17 


tea 


(TA=TB 

F5D6 

B0F3E6 


.^SR 

BCD 

(CONVERT TO BCD 

F5D9 

BOF57A 


•vSR 

bytout 

(PRINT THE TWO CHARS 

F50C 

B6402O 


LCAA 

TEMPS 


F5DF 

B0F2A0 


■wSR 

OUTa 

(PRINT WHAT IS IN TEMP5 
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FSE2 

32 

FLlA 

{RESTORE ♦A 

F5E3 

BDF3E6 

.wSR BCD 

{CONVERT TO BCD 

F5E6 

B0FS7A 

.JSR BYTOUT 

{PRINT BOTH CHARS 

F5E? 

39 

PTS 

{RETURN TO CAUUER 






*+ThIS subroutine prints the 

date. 



*+TH£ MO^TH MUST BE IN AND THE 



*DAY MUST BE IN tA. 


F5EA 

36 

pdate PSHA 

{SAVE +A 

F5EB 

862F 

UEAA -^SsaF 


F5E0 

B74020 

STAA TEMP5 

{TEMPSa+7/+7 

F5F0 

32 

PULA 

{RESTORE +A 

F5F1 

BDF5D4 

iwSB VAROUT 

(VAROUT PRINTS OUT DATE 

FSP-h 

39 

PTS 

(RETURN TO CALLER 



«*ThIS subroutine prints out 

®FlV£ SPACES. 


F5F5 

36 

PSPACE PSHA 

(SAVE +A 

FSFo 

37 

PSHB 

{SAVE tB 

F5F7 

CEFOOO 

L'CX -.SSPACES 

(LOAD tl+R WITH ADDRESS 

F5FA 

8DF717 

.vSR PRINT 

{PRINT +7 

F5FD 

33 

PULB 

{RESTORE tB 

F5FE 

32 

PULA 

{RESTORE +A 

F5FF 

39 

PTS 

(RETURN TO CALLER 



*‘^THIS subroutine PRINTS ONE 

space. 

F600 

36 

PSP PSHA 

(SAVE ♦A 

F60i 

37 

PSHB 

(SAVE +B 

F&02 

B620 

UCAA -.SS20 


F60A 

BOF2AO 

■wSR OUTA 

(PRINT +7 t7 

F607 

33 

PULB 

(RESTORE tB 

FfcOfe 

32 

PULA 

{RESTORE tA 

Fb09 

39 

RTS 

{RETURN TO CALLER 



*+THlS SUBROUTINE CLEARS THE 

STACK 



*IN EXACTLY THE SAME MANNER 

that 



*A tR+T+I instruction WOULD, 

BUT WITH*- 



«OUT THE RETURN JUMP, ttA tR+T+I IS 



*A Return from an interrupt,: 

1 

FbOA 

32 

FAXEfil PULA 

{SAVE tA UN tA) 

F60B 

33 

FLUB 

(SAVE tB (IN tB) 

FbOC 

31 

IiNS 


FbOD 

31 

JNS 


Fboe 

31 

INS 


FboF 

31 

INS 


F6lJ 

31 

Ins 


FbU 

31 

INS 


F612 

31 

INS 

(INCREMENT THE STACK POINTER SEVEN 
{TIMES JUST LIKE AN tRtTti 

F613 

37 

PSHB 

(PUSH tB BACK ON STACK 

FblA 

36 

PSHA 

(PUSH tA BACK ONTO THE STACK 

F615 

39 

PTS 

(RETURN TO CALLER 







*+ThIS subroutine CHECKS THE 
*STATUS bit that is SET AND 

♦cleared .ey rtihe and stime. 

' 

Fblb 

8o20 

SAT5 UCAA -.SS20 

(PUT A ONE IN THE CORRECT BIT 


C-d. 
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F61& fa44000 ANDA status ;tA4NtO THE STATUS WORD 

FblB 8020 SUBA -.SS20 ;SUBTRACT 20 (HEXJ TO TEST BIT 

F61D 39 FTS {RETURN TO CALLEH 

»«»««««*««»»**««*««■« 


AtTHlS SUBROUTINE INHIBITS 
oTHE CLOCK BOARD FROM BEN- 
*ERATING an tN4H+l (INTERRUPT). 


F61E 

36 

OFFCUK PSHA 


{SAVE 4A 

F61F 

8604 

ucaa 

-.S504 

{SET THE PROPER BIT 

F621 

baeooe 

cfaa 

CLOCKS 

{FORM WORD TO WRITE TO CLOCK 

F624 

B7Eoo2 

STAA 

CLOCKB 

{WRITE WORD TO CLOCK 

F627 

32 

FLLA 


{RESTORE tA 

F62b 

39 

RTS 


{RETURN TO CALLER 


#««*«»« **«**««* 0 » 


*+ThIS SUBROUTINE ENABLES THE 

*h£hory. 4The two bits that 
«C0NTH0L this are on the clock 
*SOA ao (PCRT tB) , 


F6Z9 

36 ENMEm 

FShA 


{SAVE +A 

F62A 

867F 

LCAA 

-.SS7F 

{ZERO CORRECT BIT 

F62C 

B4EOOO 

AN DA 

CLOCKA 

{FORM WORD TO WRITE TO CLOCK 

F62F 

8A40 

CPAA 

i$$40 

{SET (1) CORRECT BIT 

F631 

B7EOOO 

STAA 

CLOCKA 

{WRITE WORD TO CLOCK 

F63A 

32 

PULA 


{RESTORE +A 

F635 

39 

RTS 


{RETURN TO CALLER 




♦tTHlS SUBROUTINE ENABLES THE 




♦interrupt from 

THE CLOCK 

BOARD. 


F636 

B6£002 

CLIOLK L'CAA 

CLOCKB 



F639 

S4FB 

ANDA 

iSSFB 

{RESET 

BIT 2 

F63B 

87E002 

.STAA 

CLOCKB 

{WRITE 

TO CLOCK 

F63£ 

39 

RTS 


{RETURN 

TO caller 


***•♦•»**■**«** 


«>+this subroutine Takes the number 

*IN C+A^ei AND STUFFS IT INTO THE 
»tIMER on the clock board. tTHE 
“TiMER IS only 12 BITS AND THE 
«4 HIGH ORDER BITS OF 4A ARE 
♦assumed to be zero (DISCARDED), 
♦(-kbit 2 CF CLOCKA IS THE DATA IN 
*TO THE 3FIFT RE!s 1ST£R. I'BIT 1 
*IS THE CLOCK ON THE SHIFT REG- 
♦ISTtfi. ) 


F63F 

374009 

CLl^SET STAA 

lminh 

{STORE TIME IN LMINh 


Fb42 

F7400A 

•STAB 

lminl 

{STORE TIME IN LMINL 


F645 

BDF4AE 

<wSR 

SHFROL 



F848 

8DF4AE 

iwSR 

shfrol 



F 64 B 

BDF4AE 

'w-SR 

SHFROL 

{SHIFT LEFT C4A481 3 

TIMcS 

F64E 

CEOOOC 

LEX 

■'SIE 

{ + I-NR=12 


F 6 Si 

BOF4AE 

OVtRHER >wSR 

SHFROL 

{SHIFT LEFT I+A^BI 


F654 

36 

PSHA 


{SAVE 4A 


F655 

4D 

TSTA 


{TEST HIGH ORDER BIT 


F656 

2C14 

BCE 

BITZERO 

;IF HIGHEST BIT IS 0 

branch 

F65S 

B6E00O 

L'CAA 

CLOCKA 



F65B 

8A04 

■CRAA 

"iSiOA 

{FORM CLOCK WORD WITH DATA IN 0 

F65D 

B7EOOO 

STAA 

CLOCKA 

{WRITE WORD TO CLOCK 


F660 

6A06 

CRAA 

1 SSO 6 
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F662 

B7EOOO 

■ STAA 

CLOCKA 

{MAKE SHIFT CLOCK GO HIGH 

F66S 

BAFC 

AKDA 

•'SSFC 


F667 

B7EOOO 

STAA 

CLOCKA 

{MAKE SHIFT CLOCK GO LOW 

F 66A 

2012 

BRA 

RIGHTH 

{CLEAN UP before LOOPING BACK 

F66C 

B6EOOO 

bitzero ucaa 

CLOCKA 

{HIGHEST BIT IS ZERO 

Fb6F 

8AF8 

aaoa 

♦SSFB 


F67i 

B7E000 

•STAA 

CLOCKA 

{SET INPUT BIT TO ZERO 

F6T4 

BA02 

'CRAA 

-SS02 


F676 

B7EOO0 

STAA 

CLOCKA 

{SET Shift clock to high 

F679 

8AFS 

AN DA 

•'5SF8 


F67B 

B7E000 

■ STAA 

CLOCKA 

{RETURN SHIFT CLOCK LOW 

F67E 

32 

righth plla 


{RESTORE +A 

F67F 

09 

CEX 


{DECREMENT ♦!♦« 

FbSO 

26CF 

bne 

OVERHER 

;IF NOT ZERO LOOP BACK 

F6B2 

39 

RTS 


{RETURN TO CALLER 




♦tTiiiS StEROUTINE CONVERTS THE 
•ASCII CHARACTER IN +A INTO A 
•hex number. (+IT IS ASSUMED 
•that the character is a 
•hex number In ascii» ie. o-f.) 


F663 

8039 

ASCHEX 

•slba 

-*SS39 

F685 

- 2E03 


BCT 

BETA 

Fb87 

8B09 


ACDA 

-»$S09 

Fb89 

39 


RTS 


F68A 

8B02 

beta 

ACDA 

•’SSOZ 

Fb8C 

39 


RTS 




{SUBTRACT 39 {HEX) 

{BRANCH IF CHAR «(AS tA^f'F 
{ADD 9 

{RETURN TO caller 
{IS +A » +8» ♦C» +D.+E » OR +F ADD 2 
{RETURN TO caller 


•♦this sleroutine converts a 
•hex number into a ascii char. 


Fb8D 

BBF7 

HEXASC 

ACDA 

-<SS-9 

{SUBTRACT 9 

F66F 

2E03 


BGT 

ALPHA 

{BRANCH IF ♦A-^F 

Fb9i 

8S39 


ACDA 

-SS39 

{AOD'39 (HEX) 

Fb93 

39 


RTS 


{RETURN TO caller 

Fb94 

8BA0 

alpha 

ACDA 

-SSAO 

(ADD 40 (HEX) 

F696 

39 


RTS 


(RETURN TO caller 




•♦This sleroutine intializes 

• ALL OF TiHE PIAS IN THE SYSTEM. 

•♦There are two pias+i the clock 

•AND THE A/0 PIA, 


Fb97 

7FE801 PI*S 

CLR 

AOPIAA*! 


Fb9A 

7FE803 

CLR 

ADPIAB*! 


Fb9D 

7FE001 

CLR 

CLOCKA* 1 


F6A0 

7FE003 

CLR 

CLOCKS* 1 

(CLEAR THE CONTROL REGISTER 

F6A3 

4F 

CLRA 


FbA^ 

B7E800 

STAA 

AOPIAA 

{CONFIGURE ALL BITS AS INPUT 

r 6A7 

8bE0 

LCAA 

^SSEO 


FbA9 

B7ES02 

STAA 

ADPIAB 

(CONFIGURE BITS 5»6, AND 7 AS OUTPUT 
(THE REST AS INPUT ' ' 

FbAC 

8b04 

LCAA 

-.SS04 


FbAE 

B7E801 

STAA 

ADPIAA*! 

(DISABLE Interrupts and 
{SET location 

{TO THE peripheral REGISTER 

FfaBi 

B7E8o2 

STAA 

ADPIAB 

(DISABLE INTERRUPTS AND SET 
(TO THE peripheral REGISTER 

F6BA 

4A 

CECA 
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Fsas 

B7D800 


S7AA 

CNTRL 


I reset the +A-NCfI*A 

F6B8 

8b89 


UCAA 

-<SSB9 



F6BA 

670800 


STAA 

CNTRL 


;SET CLOCK RATE, wORD LENGTH, 

F6BD 

86FF 


L-CAA 

-SSFF 


5 AND INTERRUPT 

F6BF 

B7EOOO 


STAA 

CLOCKA 


;CONFIGURE ALL BITS AS OUTPUT 

Fbct 

3605 


UCAA 

-,SS05 



F6C4 

B7E001 


STAA 

CLOCKA* 1 


;SET INTERRUPT To THE NEGATIVE EDGE 
UND CHANGE ACCESS TO PERIPHHERaL 

F6C7 

66F7 


L-CAA 

•,$$F7 



FfcC9 

b7Eoo3 


STAA 

CLOCKS 


I set BIT 3 AS INPUT, THE REST AS OUTPUT 

F6CC 

860A 


L-CAA 

-«SS04 



FbCE 

B7E003 


STAA 

CLOCKS*! 


(CHANGE ACCESS To THE PERIPHERAL 
}AND DISABLE ALL INTERRUPTS 

F6D1 

8630 


L-CAA 

"SS30 


F6Dj 

B7E000 


STAA 

CLOCKA 


'.DISABLE memory with THE NORMAL BITS 

F6D6 

BbEOOO 


L-CAA 

CLOCKA 


{CLEAR ANY INTERRUPT ON PORT tA 

F609 

39 


RTS 











*tTHlS 

SLBROUTINE CONVERTS 

AN 

ANALOG voltage 



*0N PORT SPECIFIED BY SENNUM 

TO A 12 BIT 



*U16ITAL iNUMBER 

AND STORES 

IT 

IN CONVH, CONVL. 

F6DA 

36 

ADCVAL 

FSHA 




FfeOb 

37 


FSHB 




F6DC 

B6402C 


lcaa 

sennum 



FfeOF 



ASLA 




FfegO 

a6 


ASLA 




F6E1 

48 


ASLA 




F6E2 

48 


ASLA 




F6£3 

48 


ASLA 




F6EA 

B7E802 


■ STAA 

ADPIAB 


1 selects PORT 

F6E7 

B0F9E5 


i,;SR 

mdelay 


{ALLOWS multiplexer TO SETTLE 

F6£A 

8620 


L-CAA 

•’$520 



FbEC 

8AE003 


CRAA 

CLOCKS 



F6EF 

B7E002 


staa 

CLOCKS 


{INITIATES -,A/+D conversion 

FbF2 

860F 


LCAA 

-SSDF 



FbFA 

34E002 


.ANDA 

CLOCKB 



FbF7 

87E002 


staa 

CLOCKS 



FbFA 

8DF9E6 


■vSR 

MDELAY 


SALLOWS +A/4D TIME TO START CONVERSON 

FbFD 

B6E802 

ready 

LCAA 

ADPIAB 



F700 

8410 


AN DA 

-5510 



F70H 

26F9 


BNE 

READY 


{CHECKS status OF tA/*0 CONVERSION 

F7oA 

B6E802 


L-CAA 

ADPIAB 


{TAKES COMPLEHENTARY BINARY OUTPUT, 
(CONVERTS TO SIGNED BINARY AND 
{STORES IN CONVH, CONVL 

F7G7 

SAFO 


CRAA 

iSSFO 



F7o9 

43 


CCMA 




F70A 

B74023 


STAA 

CONVH 



F7oD 

B6ES00 


L-CAA 

ADPIAA 



F710 

43 


CCMA 




F7U 

B7402* 


STAA 

CONVL 



F71A 

33 


PLLB 




F71S 

32 


PLLA 




F7lb 

39 


RTS 





««««**«*«««»••«»•«« 


«■■^ThIS SUBROUTINE PRINTS OUT 
*CHAraCTEP STRINGS STORED IN 
*the program, <'The starting 
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«aodr£ss cf the character 
*STRIN5 I^uST 8E in the tl+R 
•»v«MEn the subroutine is called, 

*flHE SUEFOUTINE THEN PRINTS 

*OUT character from consec- 

ouTiVE MEMORY LOCATIONS UNTIL 
*IT HEADS A 00. 


F717 

36 

print 

FSHA 


;SAVE +A 

F 71 S 

A600 

baCkw 

UCAA 

SOOtX 

jmove character into +A 

F71A 

8100 


CMPA 

•'Ssoo 

as it a ZEROf/ 

F71C 

2602 


8NE 

HERE 

lIF IT 1SN+7T THEN BRANCH TO HERE 

F71E 

32 


PL LA 


) RESTORE 4A 

F71F 

39 


RTS 


{RETURN TO CALLER 

F720 

B0F2A0 

here 

■vSR 

OUTA 

{PRINT THE character 

F723 

08 


INX 


{INCREMENT THE 

F724 

20F2 


BRA 

BACKW 

{LOOP BACK FOR MORE CHARACTERS 




*1>T|,IS SL8H0UTINE PRINTS OUT 
»A Time. <>THE TIME TO BE PRINTED 
•»mUSt be in minutes AND MUST 
®Bt STORE'C in [♦B'fA]. 


F726 

CEOOOO 

PTIME 

LCX 

-<SSOO 

{CLEAR +ItR 

F729 

08 

PLOOp 

INX 


{INCREMENT ti-rR (COUNT HOURS) 

F72A 

803C 


SLBA 

-,S60 

{SUBTRACT SIXTY MInUTES 

F72C 

C200 


SECB 

>,SS00 

{SUBTRACT CARRY 

F72E 

2CF9 


■EGE 

PLOOP 

{IF not negative loop back 

F730 

8»3C 


ACDA 

->560 

{HAKE time positive again 

F732 

09 


CEX 


{ADJUST i-I+R 

F733 

FF4021 


■STX 

TEMPI2 

{SAVE IN A temporary LOC. 

F736 

F64022 


UCAB 

TEMP 13 

{WRITE -.5 OF HOURS INTO +B 

F739 

36 


PSHA 


{SAVE +A 

F73A 

863A 


LCAA 

•^SS3A 


F 73 C 

B7402U 


■STAA 

TEMPS 

;TEMP5c47^{+7 

F73F 

32 


PLLA 


{RESTORE tA 

F74U 

BDFSD^ 


■vSR 

VAROUT 

{PRINT The time 

F 743 

39 


RTS 


{RETURN TO CALLER 




*fMULTIPLIES SUCCESIVE MEMORY LOCATIONS SPECIFIED 
*BE index register by 2,44140625 MAINTAINING 
i>Th£ RUNNING SUM IN +A AND t CONTENTS OF THE 

•MEMORY LOCATIONS ARE DESTROYED), 


F744 

A601 multi 

LCAA 

S01,X 

F746 

E600 

UCAB 

SQOtX 

F 74 S 

48 

ASLA 


F 749 

59 

RCLB 


F 74 A 

BDFS75 

>vSR 

SHIFTR 

F 74 D 

BDF763 

•vSR 

SHIFAO 

F750 

BDF763 

vSR ' 

SHIFAO 

F 753 

BDF763 

ivSR 

SHIFAD 

F756 

SDF575 

ivSR 

SHIFTR 

F 759 

BOF57b 

SvSR 

SHIFTR 

nbc 

BDFS7b 

|„SR 

SHIFTR 

F 75 F 

BDF763 

■vSR 

SHIFAO 

F762 

39 

RTS 



»»««««•««« ••*«*»•««««» 


•■^THIS HCLTINE right SHIFTS THE 16 

•ell wORC IN SUCCESIVE MEMORY LOCATIONS SPEC- 
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*I?lEC B\ THE Index REQISTERt THEN ADDS THEM 
eTt' CONTENTS OF +At+6 {WITH ROUNDING) t 


F763 

6400 

ShIFaD LSR 

OOtX 

F765 

6601 

PCR 

OliX 

F767 

A9ol 

ACCA 

01«X 

F769 

E900 

ACCB 

OOtX 

F76b 

39 

RTS 





*+Th1S SLEROUTINE converts the BINARY NUMBER 
*1N CONVFtCONVL TO tB+C+O AND RETURNS IT 
*T0 CONVHj convl. 


F76C 

FE40Z3 

DECADJ 

L’CX 

CONVH 

F76F 

4F 


CLRA 


F770 

5F 


CURB 


F771 

8COOOO 

oonyet 

CrX 

•^SSOOOO JCHECK IF 4l + R=0000 

F774 

27U 


BEQ 

FINISH 

F776 

09 


CEX 

;D£CREMENT +I+R 

F777 

8B01 


AC DA 

-SSOl JADO ONE TO +A 

F779 

19 


CAA 

} CONVERT tA TO A DECIMAL NUMBER 

F77A 

C900 


ACCB 

-iSSOO JAOD CARRY BIT TO tB 

F77C 

B7A023 


STAA 

CONVH 

F77F 

17 


TEA 


F760 

19 


■caa 

{CONVERT 4B TO A decimal NUMBER 

F7B1 

16 


TAB 


F78Z 

B64023 


LCAA 

CONVH 

F785 

20EA 


EFA 

DONYET 

F7B7 

B74024 

finish 

STAA 

CONVL {STORE tBtC+O RESULT IN CONVUCONVH 

F78A 

F74023 


STAB 

CONVH 

F78D 

39 


PTS 




o********-#*********** 

F78E 

4S4F57 

HOW 

FCC 

47HOW MANY+/47 

F79I 

E04041 




F794 

4E593F 




F797 

00 


FCB 

00 

F79tt 

285856 

three 

FCC 

+7 (XXX) +7 

F79fa 

582920 




F79E 

00 


FCB 

00 

F79F 

4F4E2& 

ON 

FCC 

+70N »t7 

F7AE 

00 


FCB 

00 

F7A3 

4F4640 

OFF 

‘'CC 

+70FF.t7 

F7A6 

2E 




F7A7 

00 


FCB 

00 

F7A8 

574152 

POWlS 

FCC 

t7WARM-UP POWER IS *7 

F7AB 

402055 




F7AE 

502050 




F7B1 

4F5745 




F7S4 

522049 




F707 

5320 




F769 

00 


FCB 

00 

F78A 

2A4445 

DEL 

FCC 

'H7*DEU»47 

F76D 

4C2A 




F7BF 

00 


FCB 

SOO 



<H>*«'**'l>**«»-l>***-»**4*4-*0** 



4+T„1S 

subroutine PRINTS OUT THE 



estate 

OF THE 

WARMUP POWER (404N» 





F7CU 

CEF7A6 

ALLRT 

LCX 

-fSPOWlS 
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F7C3 

BDF7I7 


>*SR 

PRINT 

{PRINT tT+WARM-UP POWER IS+7 

F7C6> 

BC<F629 


wSR 

ENMEM 

{ENABLE MEMORY 

F7CV 

B6<»OOU 


LCAA 

status 


F7CC 

aA-02 


anda 

->S502 

{CHECK WARMUP POwER BIT 

F7CE. 

2700 


EEC 

WOFF 

{IF zero then IT IS OFF 

F7D0 

eBAOlB 


LCAA 

WTIME 


F7D3 

2708 


EEO 

WOFF 

{IF WTIME=0 THEN THERE IS 






{NO WARM-UP TIME 

F7D5 

CEF79F 


LCX 

•'SON 


F70t> 

BDF717 


ivSR 

PRINT 

{PRINT ^O+N-^. 

F7Dfa 

2006 


ERA 

DALERT 

{BRANCH TO OALERT 

F7D0 

CEF7A3 

WOFF 

OCX 

iSOFF 


F7EH 

80F717 


iwER 

PRINT 

{PRINT •t’0‘‘FAF+. 

F7E3 

8DF555 

DALErT 

iwSR 

LFCR 

{Skip'a line 

F7c© 

BOFA-Aj 


•^SR 

OIShEM 

{DISABLE MEMORY 

F7£9 

39 


F7S 


{RETURN TO caller 




END 

« THE binary in in PHYBICAL ELOCK Z 
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CPG SrbOO 

*fTulS SLgROUTiNE APPLIES A LINEAR CONVERSION 
*TV THE BINARY DATA IN CONVHtCONVL DEPENDING 
*CN THE contents of S£nnOM+} 

* .sennuh OUTPUT Range 

« 0 -30.00 - 70.00 

* 1 -3A.00 - 50.00 

* 2 800.00 - 1100,00 

* >2 00.00 - 5.00 

**IHE OUTPUT IS printed in DECIMAL FORMAT. 


Fbov 

3fa 

senscv fsha 


F 80 1 

FF402b 

STX 

TEMPIR 

f 8yA 

37 

FSHB 


FbOP 

CE4025 

LCX 

-iSCONVri 

F80O 

BO402C 

LCAA 

SEnnum 

F oOD 

AD 

TSTA 


F8CC 

2603 

ENE 

CHERE 

FeoE 

7EFb92 

w-FP 

TEMPCV 

Foil 

8101 

Cht-RE CMPA 

^SSO 1 

Fbl3 

2603 

ENE 

SKIPJMP 

r 8,5 

7EFa6J 

vPP 

DEwPT 

Pblo 

blu2 

SKlPjMP CPPA 

*'$S02 

FolA 

2603 

BAE 

HOP I 

r oiC 

7EF8EA 

-UMP 

PRESUR 

FblF 

bUFSTS 

HOPI .>,SR 

SHIFTR 

Fb22 

AOCl 

LCAA 

SOI.X 

F82A 

E6G0 

LCAS 

SOO.X 

Ffa2b 

HDF7»*- 

.«£R 

MULTI 

Fhk’i 

A701 

STAA 

SOl.X 

F62L 

E700 

STAB 

500, X 

IG20 

8UF76C 

vSR 

OECttDJ 

F83V 

LE402o 

L'CX 

•.SCONVH 

F833 

AOOC 

LCAA 

soo.x 

F835 

b*-Fo 

AADA 

-.4$F0 

F£j7 


lsr* 


Ffa3B 

AA 

ISRA 


Fc 

aa 

lSRa 


FbjA 

AA 

LSRm 


F bjo 

bwio 

CFAA 

->5130 

F83D 

BDF 2Ac 

■vSR 

OUTA 

FfcAC 

862E 

LCAA 

-SS2E 

F 8Ac 

BOF2AI, 

<,£R 

OUTA 

Fb4 5 

A600 

LCAA 

500 .x 

F8A 7 

8A0F 

AN DA 

— 4 S 0 F 

F84? 

8A30 

CPAA 

i5S30 

Fb.|D 

BDFaAu 

•wSR 

OUTA 

FbAE 

AoOl 

UCAA 

501, X 

FbSO 

BDF57A 

•wSR 

BYTOUT 

F b5o 

7£F 889 

ijAP 

MISSED 

FbSS 

BOF76C 

TOGETR wSR 

DECADJ 

FbSY 

S6A023 

JQINUF LCAA 

CONVH 


5 TEST FOR SENNUH=0» GOTO TEMPCV 

stest For s£nnum=i» goto oewpt 

{TEST FOR SENNUm= 2, GOTO PRESUR 
{DIVIDE NUMBER BY 2 
•{MULTIPLY NUMBER BY 2,4Al-t0625 


{CONVERT FIRST fB+C'i'D DIGIT 
5TO ASCII 
{PRINT THE DIGIT 

{PRINT THE decimal POINT 

{CONVERT FIRST +BtC+D DIGIT 
{TO ASCII 
{PRINT THE DIGIT 

{PRINT THE third AND FOURTH DIGITS 
{CONVERT TO DECIMAL NUMBER 
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FtS&C 

»D 


TS7A 


;CHECK FOP TWO LEAUINt. ZEROS 

Fb5U 

2o(j8 


EK E 

SECND 

;IF NOTt eo TO SECND 

r e5r 

aDFbOU 


»SR 

PSP 

;PRINT A SPACE 

Foo2 

bDFbOd 


vSR 

PSP 

SPRINT another SPACE 

F86b 

2017 


EFA 

SKIP 


r 6o? 

SA.FC 

5£<r7'0 

ANDA 

^$$F 0 

5 CHECK FOR ONE LEADING ZERO 

>^b6^ 

2o0D 


BFE 

RRTAUL 

;IF NOTt eo TO PRTALL 

Fdea 

bDFbOO 


•«SR 

PSP 

SPRINT A SPACE 

F ob- 

0«><*O23 


L'CAA 

CONVH 


F«7i 

8A30 


CPAA 

-i$S30 

5C0NVERT second digit TO ASCII 

FtJ7J 

BDF3A0 


■vSR 

OUTA 

SPRINT THE digit 

F87j 

2006 


EFA 

SKIP 


Fo7B 

8e<v023 

pbIall 

leaa 

CONVH 


Fb7t> 

BDF57A 


wSR 

SYTOUT 

SPRINT BOTH leading DIGITS 

r o7i 

862£ 

SKIP 

LCAA 

»SS2E 


FooO 

BUr2AU 


»SR 

OUTA ' 

SPRINT A decimal point 

FoB3 

B&A02‘t' 


LCAA 

CONVL 


FSeo 

30F57A 


>£R 

BYTOUT 

SPRINT last two digits 

Foe^ 

riUFeOO 

MlSbEO 

vSR 

PSP 

SPRINT A SPACE 

FB8C 

Ft>»02o 


LCX 

TEMPIR 


F od" 

33 


FlUB 



rt39u 

32 


FELA 



-o9l 

39 


RTS 



F89d 

tsFiil 

TEmpcv 

CUR 

SOltX 


5^89*. 

oOF9aA 


,vSR 

R5HIFT4 

SSHIFT 8 BIT TEMP. WORD TO 






5THE RIGHT 4 TIMES 

Fo97 

h6 01 


UCAA 

SOltX 


Fb9'? 

E600 


LCAB 

SOOtX 


Fo9b 

dBF74‘* 


>,£R 

MULTI 

SMULT. BY 2.44140625 

rd9t 

dObb 


SUBA 

-ssBe 

SSUBTRACT 3000 

F OAa 

C20B 


SECB 

-.ssoa 

SFORM THE RESULT 

FoA£ 

a701 


STAA 

01>X 


FdA** 

£7vi0' 


.STAB 

00>X 


FdAo 

2C03 


ECE 

N0NE6 

SCHECK IF RESULT IS NEGATIVE 

F &Ad 

7£F937 


.,FP 

NEUNUM 

SiF SOt 60 TO NEGNUM 

-dA3 

BOF600 


JSR 

PSP 

5 IF NOTt PRINT SPACE AND 






SSHIFT TO the RIGHT 4 TIMES 

FttAc 

7£F fiaO 


.JFP 

TOSETR 

■ 

Fasi 

oF y 1 

DErtPT 

CUR 

SOlfX 


rdbJ 

Bl)F94A 


‘..SR 

RSHIFT4 

SSHIFT 8 BIT DEW PT, WORD TO 






ITHE RIGHT 4 TIMES 

F30J 

Atoul 


UCAA 

SOltX 


Fdtid 

fcoOO 


LCAB 

SOOfX 


FdB« 

4b 


AS LA 



Fttfcib 

b9 


RCLB 


SMULTIPLY data BY 2.03078125 

f OtlC 

BDF575 


‘vSR 

SHIFTR 


FdBF 

BDF57b 


.,'R 

SHIFTR 


FuC3 

Bl)F57s 


I..SH 

SHIFTR 


FdCb 

oUF37b 


i^SR 

SHIFTR 


FBCd 

bOF763 


■vSR 

SHIFAD 


FdCB 

bOFTbj 


.-SR 

shifao 


Fact 

bOF573 


-SR 

SHIFTR 


Fdoi 

3DF763 


-SR 

SHIFAO 


FS04 

aui+s 


SUBA 

-iSS4b 

SSUBTRACT 3400 FROM THE RESULT 

FdUb. 

C20) 


secB 

-iSiOt) 


FdDt 

a701 


STAA 

SOltX 


F oD» 

£700 


STAB 

SOOiX 
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F <jDC 

2003 


cLT 

HOPUP 

F tJUt- 

7EF8AO 


•vt'F 

NONEu 

FSEi 

7EF937 

riOPyp 

•wMP 

NEGNUM 

F 6E4 

A601 

PREsUB 

LCAh 

501.x 

F LEG 

E600 


LCAB 

soo.x 

F8Eo 

B0F7*4 


ivSR 

MULTI 

FaEH 

A7C1 


STAA 

SO I . X 

FUED 

E700 


STAS 

soo.x 

Fo£F 

BDFToC 


'vSR 

OECADJ 

F6f2 

CE402j 


LCX 

-•SCONVH 

F3F5 

br 


CLRB 


F8F6 

AoOl 


LCAA 

SOI .X 

FoF» 

a8C1 


>ACDA 

SOI.X 

r dr A 

19 


DAA 


F dF H 

B7403B 


STAA 

CONVLl 

FoFl. 

AOOO 


DC A A 

SOO.X 

F90V 

A90C 


ACLA 

SOO.X 

F90e 

19 


DA A 


F9 0S 

b7«03l 


STAA 

CONVHl 

F90O 

Ol 


NCP 


F9C7 

C900 


ACCB 

^SSOO 

F9J9 

B6403B 


lcaa 

CONVul 

F90<- 

AoOl 


ACDA 

SOI.X 

r 9 &t. 

19 


•CAA 


F90r 

A7U1 


ST Am 

SOI.X 

F911 

BO4031 


lcaa 

CONVHl 

F914 

A900 


ACCA 

SOO.X 

F:)lo 

19 


'CAA 


F91"' 

A700 


STAA 

SOO.X 

F919 

C900 


ACCB 

•.SSOO 

f 910 

n 


TEA 


F9iC 

bBob 


ACDA 

■oSbOB 

F9iii 

19 


CAA 


F91f 

30 


rSHA 


F920 

8410 


AN DA 

".SSI 0 

r 92t 

2707 


EEC 

ZERO 

F924 

32 


PLLA 


F92Si 

BUF57A 


.wSR 

BYTOUT 

F92o 

7EF870 



PRTALL 

Fv2b 

oOFoOo 

ZERO 

..SR 

PSP 

F92C. 

32 


PLLA 


F92r 

8A30 


CP A A 

.^S$3o 

Fv3. 

BDF2A0 


.SR 

OUTA 

F93A 

7EF87B 


vFp 

PRTALL 

F93-' 

Abul 

NEGNUM 

LCAA 

SOI.X 

F939 

£600 


LCA8 

SOO.X 

F93b 

40 


A EGA 


F93C 

5U 


inEGB 


F93U 

5A 


CECB 


F934 

A701 


STAA 

SOI .X 

F94U 

£700 


STAB 

SOO.X 

F94c; 

8o2D 


LCAA 

-S52D 

F 9<.tt 

BDFHAO 


vSR 

OUTa 

F947 

7EFS56 


.FP 

TOGETR 




*i-ThIS SUcROUTInE shifts 


5 IF RESULT IS NOT NE6AT1\^|, 

;BRANCH TO NONEG 

;IF NOT JUMP TO NE6NUM 


5MULTIPLY BY 2.44140625 


5 CONVERT TO A DECiMALt NUMBER 
JCLEAR +B 

iAOD CONVL TO ITSEUFt 
; CONVERT TO A 4BtC+D NUMBER 

SAND STORE IN CONVLl 

5 ADO CONVH TO ITSELF PLUS CARRY 
t CONVERT TO A ♦■B'fCtO NUMBER 
•.STORE IN CONVHl 

SAOO CARRY TO fB 
SADD CONVLl TO CONVL 

tCONVERT TO tB-fC+O 
} STORE IN CONVL 

5ADD CONVHl TO CONVH PLUS CARRY 
? CONVERT TO +B+C4D NUMBER 
•.STORE IN CONVH 
? ado' CARRY TO +B 
SPUT tB IN 1-A 
JADD 8 TO tA 

{CONVERT TO A tBi-C+D DIGIT 

{CHECK FOR A leading I 
{IF NOT. GO TO ZERO 

{IF SO, PRINT 2 leading DIGITS 

SPRINT A space 

{CONVERT +A TO ASCII 
{PRINT the digit 


{GET THE magnitude OF THE 
{NEGATIVE NUMBER 


{PRINT THE MINUS SIGN 
{JUMP TO TOGETR 

consecutive memory 
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*UCCftTIONS (SPECIFIED BY THE FOUR TIMES 

*TU THE PIGHT, 


f VAft 

BUF57S 

RSHIFTA i^SR 

SHIFTR 



Fy^H/ 

BDF57S 

vSR 

SHIFTS 



FSSC 

B0F57b 

%SR 

SHIFTP 



f '^ss 

bDFb7S 

■vER 

SHIFTR 



F95C 

3V 

RTS 











*tThl5 St6ROUTT(jE CONVERTS 

A 12 

BIT data 



OWORC IN [TA+B] 
otflTh RQtSDiNG. 

TO A a BIT 

DATA 

WORD IN 

F 957 

FF402B 

HUVEIT STa 

TEMPIR 


iSAVE +I+R 

F9bA 

CEOOOA 

LCX 

^SS04 



F95U 

Sh 

MOVLOP LSRB 



;SH1FT TB 

F9SE 

Ab 

PCRA 



iShIFT tA 

F9Sr 

U9 

CEX 



JOECREmENT tUR 

F96u 

26FB 

B^E 

MOVLOP 


; TEST 'IF DONE 

Frtjc: 

tS900 

ACC» 

-saoo 


.ROUND THE number IF DONE 

F9bt 

C900 

ACCB 

-.ssoo 


F vbo 

FE402«i 

LCX 

TEMPIR 


IRESORE +I»R 

F9b9 

39 

FTS 





««<>«««'»««« 


■»*ThIS SLEROUTInE SHIFTS C+B+AJ TO THE 
*hiVHT A TIMES. 


F96A 

FF'.CBB 

LEPTSH 

SIX 

TEMPIR 

Fwbu 

CEuOO*» 


LCX 

^S504 

F97u 

4 B 

LSH 

ASLA 


F971 

S9 


RCLB 


F97. 

C9 


CEX 


f 97 3 

2«>FB 


BNE 

LSH 

F973 

FE..02O 


LCX 

TEMPIR 

F97-S 

39 


RTS 





«+T^,IS RCLTINE IS executed WHENEVER 
*A haruwapE interrupt occurs (■^N+0♦T A 
»NUT'-MA5KABL£ INTERRUPT)! tANY TIME 

tA-fC-fl-fA RECEIVES A CHARACTER THIS 

^routine is executed. 


F 979 

BbDSOV 

IriU 

LCAA 

CNTRL 

;LOAO -FA WITH STATUS 

F97>- 

S47C 


ANOA 

-.SEHAS^ 

;TE5T for a transmission error 

F97E 

27oA 


BEQ 

NOERR 

JIF NO ERROR BRANCH 

FOSu 

b6JF 


LCAA 

-$S3F 


FwS2 

BUF2A0 


■vSR 

OUTA 

5 IF AN ERROR OCCUREO PRInT 

F9bb 

BoUbOi 


LCAA 

DATA 

;A (3UESTION MARK 

F9b8 

2U28 


ERA 

IRQHERE 

{FINISH THE ROUTINE 

F90(. 

B6D801 

NOC-Rr 

LCAA 

DATA 


F96U 

BLF2AU 


■vSR 

OUTA 

{PRINT THE RECEIVED CHARACTER 

F99i< 

9712 


.staa 

RECEIV 

{STORE THE RECEIVED CHARACTER 

F99C 

j6 l3 

ending 

LCAB 

bIRQ 


fS>gu. 

CA04 


CRAB 

^$S04 


F99fc 

DUB 


OF PA 

-.SSld 

)IS THE CHARACTER AN TE+S+CTA+PtE 

F99L. 

2719 


EEQ 

ESC 

{IF YES BRANCH TO ESC 

F99A 

8113 


OFPA 

•!ssu 

ilS THE CHARACTER A CONTROL tS 

F99C 

2912 


BNE 

STATSO 

{IF not BRANCH To STATSO 

FV9L 

EUF60A 

FA^E 

‘„£R 

FAKERI 

{PULL ANYTHING AN -FR-M+S WOULD 

F9A- 

CEOOOO 


LCX 

..soooo 


F 94^. 

uFCrO 


stx 

BACKUP 

{CLEAR BACKUP 
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r 

7FOOOA 

CLR 

WHERE 

; CLEAR WHERE 


bOF553 

.SR 

LFCR 

;DO A tL+F ■tCl'R 

FvaC 

OF 

CLl 


5ENA6LE FURTHER tlfR*Q+7S 


7CFCCB 

«.FP 

DISDON 

;RETURN TO USER PA5E 

F9ot' 

D713 

statso stab 

SIRo 

; indicate an -M+R+Q occured 

F96J: 

3b 

IRUbERE FTI 


JRETURN TO PREVIOUS WORK 

Fvo-J 

7DOOOO 

ESt T.S T 

BACKUP 

5 TEST BACKUP 

FVfao 

27F8 

EEQ 

STATSO 

}IF ZERO THEN DONE 

Fybb 

3DF60A 

'.SR 

F AK.tR I 

?IE NOT ZERO PULL FROm' THE 
TSTACK like a i-R^H-I / 

F9bo 

32 

ESCLOP PLLA 


;THIS LOOP FIXES THE ^TACK 

F9bC 

B7^023 

■STAA 

CONVH 


F9hF 

33 

FLLB 



F9Ct< 

F7A02“ 

STAB 

CONVL 


F9Cj 

FE402J 

L'CX 

CONVH 


FyCo 

8CFC79 

CFA 

..SSTRIP . 

;CHECK FOR THE ADDRESS OF STRIP 

r 9CV 

2oFq 

BAE 

ESCLOP 

ilF NOT PULL MORE OFF THE'STACK 

FvCe 

37 

RSHB 


5 IF STRIP REPLACE ON STACK 

F9CC 

3s 

FSHA 



F9Cb 

aUF5F= 

‘>»S R 

PSPACE 

;SKIP A space 

F9DCi 

CEF7B** 

LCX 

..SDEL 


F 9L‘J 

bOF7l7 

vSS 

print 

;PH1nT a tTPtOtE+L**? 

F9D0 

bOF55b 

.SR 

LFCR 

{SKIP A LINE 

f OD9 

UEOO 

L'CX 

BACKUP 


f vL'fc 

Ot 

CLl 


tenable INTERRUPT 

f 90C 

6F00 

..FP 

SOOfX 

;JUMP SACK A LINE 







fl-^TnIS StgHOUTiNE generates A 
*0.30 SECOND DELAY, 


F9Ut 

CEAAfaO 

delay LCX 

..SSA480 


ppe: 

U9 

OL'^UP -EEX 



F 9Et 

2bFD 

EAE 

OLOOP 


F«)E;i 

39 

RTS 









*+ThIS SueHOUTiNE GENERATES A 

ftO'-iE millisecond delay. 

. 

F9Ep 

DFu? 

MOELaY stx 

TEMPI3 


F9E7 

CEOOb** 

LCX 

-•SSSA 


F 9c:m 

09 

hDLOqP cfcX 



F9Eb 

ZoFD 

BAE 

MDLOOP 


f 9Et 

l>202 

LCX 

TEMPI3 


F9EF 

39 

RTS 





««*««»»»««»»«««« 




*tTHlS RCLTINE 

RESPONDS TO all 

INTERRUPTS 



*F"0M the CLOCK Board, fUSUAULY THIS means 



*A KEADlMi IS 

TO EE TAKEN OR WARMUP POWER 



*13 TO BE TURNED ON, 


F9FU 

3©F7 

NMI LCAA 

-.StF7 

{OPTIONAL 

F9Fa 

87E002 

STAA 

CLOCKS 

TOPTIONAL 

F9Fb 

o60A 

LCAA 

^SSOA 

{OPTIONAL 

F9F7 

87E.O0J 

■STAA 

CLOCKS* 1 

{OPTIONAL 

F9F- 

BUFeit 

..SR 

OFFCLK 

{PREVENT MULTIPLE INTERRUPTS 

F9FL 

BC/F9Df 

.SP 

delay 

;LET SENSORS STaBLIZE 

FA(iL 

6DF629 

i.SR 

ENrtEM 

{ENABLE MEMORY IN CASE IT IS OFF 

FaG-s 

Bom-COI 

LCAA 

month 

{THE STORE AND LOADS SAVE 

FAOfe 

97u4 

STAA 

TMONT h 

{THE variables used FOR 
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F aOo 

BbAp02 


LCAA 

DAY 

FtOi 

J7ub 


ST AA 

TOAY 

F aOU 

bbA-OOS 


LCAA 

TlMEH 

F A X >' 

97u6 


STAA 

TT iMcH 

r A12 

BoACO** 


LCAA 

TlMEL 

FAl3 

97b7 


STa« 

TT lMc.L 

fait 

Bfa4033 


LCAA 

NUMLOW 

F AlK 

97u3 


STAA 

TNUMLOw 

F AlC 

D 0 AO 34 


LCAA 

NUMHl 

faif 

97c<? 


STmA 

TNUMMI 

FA21 

BDF5B3 


•vSR 

RTIME 

Fa2A 

BDF2E1 

UP 

■wSP 

uptime 

faet 

de>—00w 


L'CAA 

STmTUS 

FAjJA 

BAOb 


AKDA 

—SSO 8 

F A2C 

2707 


EEO 

CHKw 

F a2E 

CfeFF 


lcab 

-SSFF 

F A3L 

BoFT 


L'CAA 

-$SFF 

FA3c 

7EFB17 


ijpP 

SLEEPY 

F Ajb 

B6400U 

CHKW 

L'CAA 

STATUS 

FA3b 

8Ayl 


ANDA 

-iSSOI 

r x»3^ 

27iE 


EEO 

WARM 

F 

BDF3CF 


..SR 

PSCMPW 

FA31 

2bOA 


BSE 

NMITODY 

pMAi 

BO05 


LCAA 

-SbOS 

FA43 

CbAO 


LCAB 

-SSAO 

F A4S 

BDF 63 F 


.„SR 

CLKSET 

F AAb 

7EFBib 


JSP 

shutoff 

FAAto 

B64013 

NmITODY 

L'CAA 

stimeh 

i^AaL 

FGaOIa 


LCAB 

stimel 

fasI 

BUF 63 F 


iwSR 

CLKSET 

F A3*- 

taaooo 


'CEC 

STATUS 

Fast 

7EF31B 


JFP 

shutoff 

FA5« 

BdAOOO 

WA«!1 

LCAA 

STATUS 

F Abu 

3Au2 


ASDA 

— iso2 

FA5f 

2tuE 


BSE 

measur 

Fa6i 

80*000 


LCAA 

status 

F AbA 

dbu2 


AC DA 

-$$02 

f Abb 

87*000 


STAA 

STATUS 

Fa6V 

AF 


CLRA 


FA6A 

FoAOlS 


LCAB 

wTlME 

Fa6U 

BDFb3F 


iwSR 

ClkSET 

r A7i> 

bOF63o 


.^SR 

CLICLK 

FA73 

oDF aa3 



DISMEM 

FA7o 

BDF36B 


wSR 

WHMPOW 

FA7V 

8DF9DE 


wSR 

delay 

Fa7L 

7EFB27 


wSP 

resume 

FA7F 

7F*02C 

HEASuR 

CLR 

SENNUM 

r AOi. 

FE402b 


LCX 

MOAT AH 

F«ab 

oDFB7l 

TEMPQO 

■ v'R 

READ 

FABD 

dUF9b? 


■vSR 

MOVEIT 

F ABij 

A700 


STAA 

SOOtX 

F a6D 

u8 


ISX 


r Adt. 

7C*02C 


ISC 

SENNUM 


; sequential readings 


} RESTORE ALL VARIABLES TO 
iTHEIR TRUE VALUES 
JUPDATE THE TIME 

•.CHECK IF measurements ARE ALL TAKEN 
{IF NOT GO TO CHKV. 

{RESET CLOCK TO LARGEST INPUT 

{SLEEPY RESETS CLOCK TOttA+Bl 

{DO READINGS START TODAY■^/ 

{IF YES BRANCH TO ».ARM 
{COMPARE STARTING DATE TO TODAY 
.24 HOURS OR <2A HOURS AwAY 

{LOAD 2A HOURS 


{LOAD starting TIME 


{CHECK IF last power OFF waS 
{FOR WARM-UP OR IF wARM-uP=0 
{IF IT WAS FOR WARM-UP GOTO MEASUR 
{AND TAKE SOME READINGS 

{INDICATE POWER OFF FOR wARM-UP 

{CLEAR *A 

{GET THE WARM-UP TIME 

{SET THE CLOCK TO wARM-UP TIME 

{ENABLE THE CLOCK TO INTERRUPT 

{DISABLE The memory 

{TURN OFF ALL POWER EXCEPT WARM-UP 

{WAIT FOR RELAYS TO WORK 

{SENNUM POINTS TO A PORT 
{■Mi“R holds where TO PUT DATA 
{READ A PORT INTO UBtA] 

{ROUND THE READING TO 8 BITS 
{STORE THE RESULT IN MEMORY 
{INCREMENT 1-ItR 
{LOOK AT NEXT PORT 
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FA9i 

bb*^02C 


LCAA 

sennum 

FA9- 

blC2 


CMPA 

iSS02 

Fn9G 

2bcD 


BkE 

tEmpdo 

Fi»9o 

oDrbTi 


wSR 

read 

F A9D 

BDF 9bA 


■wSR 

LEFTSH 

F AgL 

E700 


STAB 

S00,X 

F aAU 

06 


IpKX 


FhAi 

a700 


STAA 

SOOiX 

FAAi 

0bAO2b 


LCAA 

nports 

F AAO 

BV02 


.slba 

-5502 

FAA» 

B7402D 


STAA 

FULLR 

faab 

BDFClb 


vSR 

SETUP 

F AAt 

7AA02U 

morful 

CEC 

FULLR 

FABl 

2723 ' 


EE(3 

INCONE 

F aB3 

BUF BE7 


-SR 

WHICHP 

FABo 

BOFB71 


wSR 

READ 

FAB=5 

EAUQ 


CRAB 

SUOtX 

FaBu 

E700 


STAB 

S00«X 

FaBD 

08 


INX 


FABc. 

A700 


STAA 

SOOtX 

FaCU 

7A402D 


CbC 

FULLR 

FACS 

am 


BEQ 

INCONE 

FACS 

08 


IKA 


FACfc 

BDFBE7 


*-SR 

WHICHP 

FaCV 

8DFB7I 


i-SR 

READ 

FACL 

BDF96A 


-SR 

LEFTSH 

FACF 

E700 


STAB 

SOOfX 

FMDi 

03 


IFX 


FADZ 

A700 


STAA 

SOOiX 

FAD<* 

HODB 


ERA 

MORFUL 

F ADo 

Oo 

INLONE 

INX 


F«D7 

FFA023 


STX 

MDATAH 

FADa 

BOifClO 


LCAA 

"TIME 

FaOu 

270S 


bSU 

OKSTaT 

faof 

Bb«00v 


LCAA 

STATUS 

FaEE 

SaFD 


AN DA 

-«SSFD 

rA£<* 

B7aOOU 


STAA 

STATUS 

r aE7 

BUF aBI 

OKSTaT 

i-SR 

pfcomp 

FAEa 

2722 


EEQ 

AWAY 

F AE^ 

F6A019 


LCAB 

ftimeh 

facf 

B6401A 


LCAA 

FT I MEL 

FaFZ 

bt^A-OOb 


SlSA 

ptimel 

FaFS 

F2t.007 


SECB 

ptihem 

FAFtj 

2CUE 


66 E 

awayi 

FaF A 

01 

letsgc 

NCP 


f AFb 

bbAOOO 


LCAA 

STATUS 

FAFc, 

8A08 


CPAA 

■>SS06 

FBOa 

t)7<t000 


.STAA 

STATUS 

FtiO- 

8bFF 


LCAA 

*>SSFF 

F 80 = 

lb 


TAB 


FttOt 

20jF 


era 

sleepy 

F bob 

5l» 

ArtAYl 

tstb 


FbOvJ 

2b0i 


6NE 

AWAY 

FbOU 

aL 


ista 


FGOC 

27EC 


eea 

LETSGO 


;are port 1 And z done^/ 

}1F ♦N+O+T BRANCH BACK 
STAKE NEXT (AIR P.) READING 
{ARRANGE 12 BITS FOR MEMORY 
(STORE HIGH ORDER B BITS 
{INCREMENT -MtR 
{STORE LOW ORDER A BITS 
{NUMBER OF PORTS TO READ 
{SUBTRACT 2 already READ 
{STORE THAT IN TEMP LOC, 

(INITIALIZE SETUP 
(DEC FROM LAST PORT READ 
{BRANCH IF done 
{FIND NEXT PORT TO READ 
{READ THE PORT 

S+OtR HIGH ORDER A BITS wItH 

{WHAT IS already there 

{STORE THE COMBINATION 

{INCREMENT +IAR 

{STORE THE LOWER 8 BITS 

{DECREMENT THE -$ OF READINGS 

{BRANCH IF DONE 

{INCREMENT +I+R 

{FIND' THE next PORT 

(READ IT 

{SHIFT READING 

{STORE HIGH ORDER B BITS 

{INCREMENT -H+R 

(STORE LOW ORDER 8 BITS 

{BRANCH AND CHECK FOR MORE 

{INCREMENT 

{STORE BACK IN MOATAHt ThIS IS THE 
{NEXT WORD FOR STORING DATA 

{IF NO WARM-UP TIME STATUS WORD IS 1‘Oi‘K 

(RESET WARM-UP BIT 
(STORE BACK INTO MEMORY 
(COMPARE TODAY TO FINAL DAY 
{IF NOT EQUAL BRANCH TO AwAY 

(UBi-AlaSTOPPlNG TIME 

{tT6'^AD=ST0P TIME-PRESENT TIME 
(IF negative goto LETSGO 


{Indicate readings all taken 


{i-AtB=FF 

(GO STUFF time IN CLOCK 
{ IF +BO0 THEN GOTO AWAY 
;1F +A=0 THEN GOTO AwAYl 
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FbOf. 

FbAOlo 

AwAY 

LCAB 

LFREQ 

FBli 

3b»0 Ib 


LLAA 

HFREQ 

FBl^t 

B0F3bfe 


vER 

SUBwTI 

FB17 

01 

SLEEpy 

NCP 


pMitJ 

SDF 63 F 


•vSR 

CLKSET 

FrflB 

BDFb3b 

SHUToFF 

^£R 

CLICLK 

fbil 

bdfaaj 


.w£R 

DI5MEH 

FB 2 I 

BUF35b 


^SR 

POW'OFF 

Fd 2 <^ 

BDF90E 


■wSR 

delay 

Fb27 

96CA 

resume 

LCAA 

WHERE 

Fb29 

2 bl 2 

. 

Bh£ 

GOBACK 

FB 2 B 

BbbO 


L'CAA 

-sseo 

FLi 2 L 

BDF629 


■*£R 

ENMEM 

Fb3u 

bVAOOO 


AKDA 

STATUS 

Fb3J 

BDFAAi 


vSR 

DISMEM 

Fb3o 

aD 


TSTA 


Fe37 

27 U3 


fcEQ 

GOODBYE 

FB 3 V 

B0F62V 


vSR 

ENMEM 

FU3C 

3B 

goodbye 

FTl 


FB30 

2 E 2 B 

GOBACK 

BCT 

FIXCUR 

FB3F 

BDFboA 


vSR 

FAKERI 

Fbnt 

B0Fb29 


vSR 

ENMEM 

FbAS 

9o04 

. 

LCAA 

TMONTH 

FbA/ 

B7AC01 


STAA 

MONTH 

Fb4M 

9bwS 


LCAA 

TDAY 

FfctAC 

B7A002 


staa 

DAY 

FbAF 

9bo6 


L'CAA 

TTIMEH 

FbSl 

87<*003 


STAA 

TIhEm 

FbSA 

9bu7 


LCAA 

TTIHEL 

FB50 

87400** 


STAA 

TIMEL 

Fbb'y 

9bUb 


LCAA 

TNUMLOW 

FbSb 

B74u33 


STAA 

NUMLOW 

FbBL 

9bo9 


LCAa 

TNUMHl 

F tshO 

B7403** 


STAA 

NUMHl 

F htjj 

iJDFSBb 


«SR 

LFCR 

F b 6 s 

OE 


CL I 


F b 6 ” 

7EFE5P 


vMP 

RESSEQ 

FB6m 

BUF60A 

FIXCUR 

^SR 

FAKERI 

f bfeL 

OE 


CLl 


FbbE 

7EFDF1 


LVP 

LEZTE 

Fr7I 

FF4035 

HEAD 

STX 

TmPIR 

Fb?*- 

B 0 F 6 L(m 


vSR 

ADCVAL 

Fb?7 

bDFbOA 


vSR 

aolval 

Fb7A 

6 bu 6 


LCAA 

-.SNUHAVR 

Fb7L 

B7401U 


staa 

TEMP2 

Fb7F 

8740 IF 


STaa 

TEmp4 

FL32 

4F 


CLRA 


Fb63 

B7401C 


staa 

tempi 

Fb 8 o 

b7«4.01E 


staa 

TEMPS 

FbB^ 

Bb4024 


LCAA 

CONvL 

F& 8 C 

Fb**023 


LCAB 

CONVM 

Fbof 

FE4G1C 


LCX 

TEMPI 

Fb92 

09 

SUMCCN 

CSX 


FB93 

27uE 


EEU 

SUMDON 

FbVb 

faOF9£b 


vSR 

MDELAY 


;t+At6]=FREQ OF measurements 
JSUBTRACT THE WARM-UP TIME 

;STUFF THE CLOCK xITH TIME 
J ALLOW THE CLOCK TO INTERRUPT 
JDISABLE THE MEMORY 

;TURn the power off 
SWAIT FOR THE REuAYS 

;IF NOT 0i SOMETHING WAS INTERRUPTED 


5 IF NOT EQUAL* A DUMP WAS IN PROGRESS 
} THEREFORE MEMORY MUST BE LEFT ON 


;WAS CURRENT OR SEQUENTIAL 
{READINGS INTERRUPTED+/ 

;1F sequential fake ♦RI‘T + 1 
{ENABLE MEMORY 

{RESTORE VARIABLES TO LAST LINE PRINTED 


{SKIP TO NEXT line 

{CLEAR INTERRUPT 

{JUMP BACK TO PRINT NEw LINE 

{DO A fake ♦RtT'M FOR CURRENT READINGS 

{CLEAR INTERRUPT 

{JUMP BACK TO CURRENT READINGS 

{SAVE tl+R 

{THROW AWAY FIRST READING 
{TAKE A GOOD READING 
{TELLS HOW many READINGS TO AVERAGE 
{STORE NUMAVR 
{STORE NUMAVR 

{STORE 0 
{STORE 0 

{ £-)‘6t'A3=READlN6 

{♦I-*RsNuMAVR 

{DECREMENT -M+R 

{IF ZERO THEN SUM IS DONE 

{DELAY BEFORE NEXT READING 
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FP9b 

BDFbOA 


vSR 

AOCVAL 


;take next reading 

Fb'JU 

Bb402<» 


AC DA 

CONVL 



Fb9L 

FV'fOaa 


ACCB 

LONVH 


i ttBtAl=[4B+A}*R£ADING 

FbAi 

20EF 


epA 

SUMCON 


tSRANCH BACK FOR MORE READINGS 

FbAJ 

CEUOO"* 

SUI"UOF. 

ucx 

-.4S04 

- 

;=1*LN<NUMAVR)/LN(2) 

FbAti 

09 

AVKOIV 

CEX 



{DECREMENT •‘I■^R 

FbA7 

27o4 


EEQ 

AVGDON 


ilF equal zero THAN DONE 

F h A'» 

B*- 


bSRB 




FbAM 

ub 


RCRA 



{DIVIDE SUM BY 2 '' 

FbAb 

20F9 


EFA 

AVRDIV 


{BRANCH BACK FOR MOREkDlVlDES 

FbAb 

FEA03b 

AVbOON 

UCX 

TMPIR 


{AVERAGE IS calculated 

FBBl. 

S'* 


ATS 



{RESTORE 4UR AND RETURN 







AtSUeSOUTINE TIMEH cauculates the next time 



*IBE CLOCK BAS 

TO TURN ON. 4IF 

THE SYSTEM 



•ttOOESNfTT HAVE 

TO TAKE READINGS 

TILL tomorrow 



*THEN MIdMGHT 

MINUS THE 

Present 

TIME MINUS 



*ThL »ARhIP time is stuffed into 

THE CLOCK. 



*-tlF THE FEAD1N6S STaFIT 

today then the starting 



*TIME HlM.5 the 

present 

TIME MINUS THE V*ARM- 



*UP TIME IS STUFFED INTO 

THE clock. +THE BIT 



«IN THE 

STATUS 

WORD THAT 

INDICATES IF THE 



aSVSTEM 

IS TO START TAMNt. READINGS NEXT TIME 



®IT f jCOnSS UPl- 

. IS appropriately set or reset. 

FB3J 

2felC 

Tlf'LlT 

bae 

today 


{BRANCH IF starts today 

FbB-' 

bOFSDb 


vSP 

MIDNIG 


{[tA+BIsMlONlGHT-PRESENT TIME 

FbHb 

BDF 3Bt> 


vSR 

SUBWTl 


{SUBTRACT WARMUP TIME 

Fbt'V 

bbF63t 


.V.5R 

clkset 


{STUFF INTO The clock 

FbbC 

BDF6?9 


vSR 

ENMEM 


{ENABLE MEMORY 

FoBF 

AF 


CLRA 




FbCv 

aC 


INCA 




FbCi 

20 iD 


EFA 

OFFSET 


{BRANCH TO SET STATUS 

FUC- 

bOAtU 

today 

LCAA 

STIMEH 


{IT STARTS TODAY 

FbCt. 

F bHOl** 


L'CAB 

stimel 



FbC? 

FOAOOo 


SLBB 

ptihel 



FbCC 

fctAOo / 


SEGA 

PTiMEh 


{C+A+BIsSTART TIME -PRESENT TIME 

FhCF 

BDF38b 


wSR 

SUBWTI 


{SUBTRACT WARMUP TIME 

FbO? 

B0F63F 


vSR 

CLKSET 


{STUFF INTO THE CLOCK 

Fbbb 

BbF629 


•wSR 

ENMEm 


i enable memory 

FbCb 

aF 


CLRA 




FBU^ 

FfcAOlb 


UCAB 

hTlME 



FbDC 

2ou2 


BNE 

OFFSET 



FBDb 

Bb02 


ACDm 

•wSSOH 


{SET STATUS FOR NO WARMUP TIKE 


e7A00O 

offset 

,STaa 

STATUS 


{STORE STATUS WORD 

FBBJ 

BuF aa3 


>^SR 

DISMEM 


{TURN OFF MEMORY 

FbEo 

39 


KT5 



{RETURN TO Caller 








A■^lH^S 

RCLTINE 

returns the next 

additional 



«PORT SELECTED 

IN -NB AND 

SENNUM, 

♦ IF No 



AMOfiE PORTS AF!E 

selected 

* IT RETURNS FF. 



*+SUbROUTINE SETUP MUST 

BE CALLED BEFORE 



orfhlcHP 

IF FIRST USED, 



FBE7 

FOA02F 

VirilCHP 

UCAB 

whICHl 



FbEA 

Bt)4030 


LCAA 

*tHICH2 



FBEl 

36 

OO^TnC 

FSHA 




FbEE 

bAtl 


ANOA 

-•SSOi 


{CHECK IF WHICHl IS NUMBER OF SELECTED 

Ft F(i 

26uE 


BNE 

I KNOW 


{PORT IF SO, GOTO I KNOW 
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FBF t 

3E 

GIVEuP 

FLLA 




FbF j 

bC 


INCB 


!1F not* increment fB 


f uF- 

AO 


PCRA 


iSHIFT tA RIGHT 


FbFb 

B7A03!) 


STAA 

WHICH2 

jSTORE in WHICH2 


FbFo 

Ciu7 


CFPB 

^SSC7 

tCHECK IF THIS IS after 

LAST PORT 

FBFa 

2FF 1 


ElE 

oontno 

;IF NOT. GO TO DONTnO 


FbFc 

CoFF' 


L'CAb 

-SSFF 

5 IF SO, LOAD tB wlTh FF 


FbFE 

2011 


ERA 

depart 



F LC J 

32 

UNC\p( 

FLLA 




FCOi 

76A030 


RCF 

WH1CH2 

JSHIFT WHICH2 RIGHT 


FCi,a 

SC 


iKCb 


1 INCREMENT <-A 


Flos 

ClOP 


C^PB 

■'SSO 8 

; CHECK IF THIS IS after 

THE LAST PORT 

flj 1 

2FuA 


ELE 

BARK 

JIF NOT, GO TO BARK 


FCv;*^ 

LbFF 


lcab 

•.SSFF 

5 IF SO, LOAD +B wlTH FF 


FCOD 

200A 


ERA 

depart 



FCOL 

F7AC2F 

BA«K 

STAB 

WHlCHl 



FCIC 

SA 


DECS 




FCil 

F7..C2L 

depart 

STaB 

SEnnum 



flu 

39 


RTS 






«««««««««««««««»«««»«««' 





h £ S 

rcltine 

initializes WHICHI 




■»AM WH1CP2 for 

USE IN wHICHP 



FLiS 

t)b'*02A 

SETUP 

LCAA 

portbt 



FCJ F 

b7A030 


STAA 

WH1CH2 



FLIH 

7F-.02F 


CLR 

WHICHI 



FLIE 

39 


,RT5 







ROLTINE initializes THE DATA LOGGER 
*1? TCU FFESS f7t)l'7 AND RESPOND WITH A YES. 


FLIP 

6DF553 IMT 

■^SR 

LFCR 

;SKIP A LINE 

FC2.i 

CEFUC2 

LCX 

xSPlNlT 

JWRITES t700 YOU WANT TO 

FC2S 

BDF71 I 

vSR 

PRINT 

SPRINTS THE MESSAGE 

FC2b 

CEF0D2 

bCX 

•.SYESNO 


rC2t' 

nl)F7 17 

^SR 

PRINT 

SPRINTS ',7{Y£S,N0)f7 

FC2E 

BDF131 

■vSR 

CHYES 

STESTS FOR A YES OR A NO 

FC51 

2737 

bEU 

F1RS70N 

SBRANCM IF answer IS YES 

FCjj 

faDFSSb 

vSR 

LFCR 

SSKIP A LINE 

FL3p 

2UoA 

ERA 

DISP 

SRETURN TO CHOICE page 




*+ThIS is were the processor starts whenever 
e-l'i IS first turned on. +THE FIRST FEW INSTRUC- 
oTIOnS 6AS1CLY INITIALIZE ANY PARTS OF THE 
*STSTEM TiFaT NEED TO BE REINITI ALIZEOi 
■frl+GECAUSE THE TIME IN Tn£ CLOCK MIGHT BE 

^changed when the System is turned on 

«THE SYSTEM RELOADS THE TIME In THE CLOCK.) 

***«*tf^<.C + T+E+; +IF THE POWER IS OFF AND THE 
oPHUCtSSCF TURNS ON IT JUMPS TO THIS SECTION 
oOF CODE IMMATERIAL OF WHO TURNED ON THE 
frPuweh (T,hE SYSTEM ITSELF OR THE USERIf-. 

FC3*' 8E007F RES I art lCS -SSTKPTR ? INITIALIZE THE STACK POINTER 

Fl.3b 7F000A CLR WHERE 

FC3L buFb97 .^£R PUS INITIALIZE THE tP+UAtT + S 

FlaI BUF6E9 ^SR ENMEM f ENABLE THE MEMORY 

FLA- BDF61E »SP OFFCLN iDlSABLE THE CLOCK+7S INTERRUPT 

FCaT RbACQS L'lAA LMlNH 

FCaA Zlub BEQ rilGhZ 


;CHECK IF LMINH = 0 
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FC4L 

FbAOCA 


LCAfa 

LMINL 

FC4F 

Zt05 


EhM 

RELOAD 

F C5i 

Fo'.OO* 

KlGoZ 

L'CAb 

LMINL 

FCb*' 

2703 


EEQ 

REDONE 

FC5t> 

BDF63F 

ftELOAL 

.^SR 

CLKSET 

FLS9 

BDF63d 

REDONE 

„SR 

CLICLK 

F(.5C 

BDF *a3 


xSF 

DISMEH 

FCSF 

ot 


CL I 


F 

BDF55S 


■vSR 

LFCR 

FC63 

CtOOft 


OCX 

-.SOOOO 

FC6» 

uf OO 


STX 

BACKUP 

FCob 

2o3t. 

DiSPON 

BFA 

DISP 




;tim£ in clock was not o« 

;BRANCH IF TIME IN CLOCK wAS 0 
jRESET THE TIME IN THE CLOCK 
: ENABLE THE CUOCK'i'TS INTERRUPT 

5 disable the memory 

SALLOW KEYBOARD INTERRUPTS 


{Initialize backup to zero 
}60 TO THE options PAGE 


*+THE PRCCRAM JUMPS HERE IF THE SYSTEM 

»is TO BE Initialized (jumps from initi* 

*i-F1RSTOk initializes data COLLECTING 
*P«RamTERS» set the status WORDi and 
* poTS the first time IN THE CLOCK. 

FCb*' SDFbiE FlRiTCN ^SR OFFCLK {TURN OFF THE CLOCKS INTERRUPT 

FCqL bDF629 vSR ENMEM {ENABLE MEMORY 


FC7L 

CE«t040 


L-Cx 

..SSTARTM 

FC7J 

Ff 4023 


STX 

MDATAH 

FC7fc 

bUFlbC 


.^SR 

■ INDAT 

FC7? 

&UF26T 

strip 

^5R 

pscomp 

FC7C 

SDFBbl 


.,5R 

UMEIT 

FC?F 

bOF629 


.SR 

ENMEM 

FCb2 

b6402B 


UCAA 

NPORTS 

FCFS 

Cou4 


UEAb 

-.SS04 

FLO"' 

bCt)3 


SLbA 

-.SS03 

FCBS 

27uB 


EEQ 

GOTIT 

FCoB 

5sC 

OM'GOC 

I'KCB 


FCPC 

nh 


CECA 


FCeL 

Z/o7 


fcEO 

GOTIT 

F{ eF 

bC 


liKCB 


FC9t 

5C 


INCB 


FC9. 

4A 


CECA 


FC9<- 

2702 


EEC 

GOTIT 

FC9“ 

20F5 


efa 

OMYGOD 

FC9C- 

F74C2t- 

gotit 

STAB 

INCIR 

FC99 

t50F63b 


.vSfi 

CLICLK 

f C9C 

S0F4Aj 


vSR 

DISMEM 

FC9F 

bOF35b 

PO 

wSR 

POWOFF 




FCa2 

9613 

DISP 

LCAA 

SIR(3 

FCA“ 

6^04 


akOA 

-SS04 

Flag 

26u3 


eke 

CDISP 

FCAO 

7EFC60 


JMP 

DISPON 

FC«H 

0l 

CD ISP 

NCP 


fcal 

bDF553 


wSR 

LFCR 

FlaF 

bDFSSb 


vSR 

UFCR 

F'Cbt 

9ol2 


LCAA 

RECEIV 

F OB'* 

Ml*i 


CMPA 

-ia<‘7AY'7 

FCbG 

271F 


EEU 

jinparm 


{REPOSITION DATA POINTER TO 
{THE FIRST WORD 
.GET THE INITIALIZATION DATA 
{tIS TODAY STARTING DAY*/ 

;lET TIMEIT stuff THE CLOCK 
(ENABLE MEMORY 

(LOAD the -$ OF READINGS TO BE TAKEN 
{EACH TIME THE PROCESSOR COMES UP 


{IF EQUAL then we ARE DONE 
;000 •.$ OF EXTRA PORTS 

{IF EQUAL TO 0 WE ARE DONE 

{EVEN OF EXTRA PORTS 

{IF tAssQ wE ARE DONE 
{CHECK for' MORE 

{INCIR IS THE ->$ OF WORDS EACH 
{SET OF measurements USES OF MEMORY 
(ENABLE THE CLOCK INTERRUPT 
(DISABLE THE MEMORY 
{TURN THE POWER OFF 


{BRANCH ONLY IF AN INTERRUPT FROM 
(THE keyboard has OCCURRED, 
{OTHERWISE LOOP AGAIN 


{LOAD tA WITH LAST CHAR RECEIVED 
{IF AN t7At7 GOTO JINPARM 
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F LBb 

blA2 

CPPA 

-.S-TB+T 



FCbA 

271E 

EEQ 

JCURRS 

5 IF 

A »7Bt7 GOTO JCURRS 

FCbC 

0 IA 3 

Cl'PA 

'i+TC+T 



FCBE 

Z71D 

EEU 

JSEquEN 

5 IF 

A t7Ct7 GOTO JSEQUEN 

r cLi' 

BlAA 

CmPa 

-StTO-f? 



FCC2 

27 iC 

EEC 

JIMT 

;iF 

A +7D-»7 then GOTO JINIT 

FCCA 

blA5 

CMPA 

->l+7£''‘7 



FLCfc 

2718 

eeo 

JDUMP 

5 IF 

AN f7E+7 GOTO JDuMP 

FCCb 

BDF 3 FL 

wSR 

OlSPCH 

;IF 

none REPRINT CHOICES 

FCCb 

9bl3 

DISDon LCAA 

SIRQ 



FCCU 

biFb 

AnDA 

••SiSFB 

>CLEAR THE INTERRUPT SIGNmL 

FCCF 

9713 

siaa 

SIRQ 



FLDi 

BDF4A3 

■-ER 

DISMEM 

;D1SABLE MEMORY 

FlD-. 

TEFCob 

-,FP 

DISPDN 

5 GO 

BACK AND WAIT FOR ANOTHER ^■I^‘H■^0 



€>•»<>« <r 0 0 « 





*-flplS section 

PROVIDES bRANCh 





^EATenSIONS to 

THE RIGHT SECTION 

• 


FCD(' 

7EFD2F 

JINP;iRM ,vFP 

INPARM 



FCC» 

7 EFD 9 U 

JCURrS vMP 

CURRS 



f CDD 

7LFE2S 

JStGUEN Jf-P 

SEUUEN 



FCEl 

7EFC1F 

JIi’'IT -»FP 

INIT 



FcEj 

7 EFFIC 

JDUMP ^NP 

DUMP 






*'^T^.IS SLEROUTlNE. PRINTS THE STARTING 

«date anc time. 


FCEb 

FbAOll SpPlfvT 

LCAB 

SMONTH 


FLE9' 

bbAOlJ 

LCAA 

SDAY 


FlEC 

BuFEEm 

vSR 

PDATE 

JPRINT THE date 

FCEF 

BDF5F= 

-SR 

PSPACE 

1 SPACE 

FCF2 

r 6AU1 J 

LCAB 

STIMEH 


FCFG 

BbAOlA 

LCAA 

STIMEL 


FCFb 

8DF72b 

vSH 

PTIME 

JPRINTS THE starting TIME 

FCFb 

bUFSSb 

..SR 

UFCR 


flfe 

39 

PTS 




««'<'« »«««»««««««« 


^>•>^I^-1S SLEROUTlNE PRINTS THE STOPPING 

*DATe anc time. 

FCFf- F6*0I7 FPl'lNT LCAB FMONTH 

FU„2 BbAOlb UCAA FDAY 

FOC'b 8DF5 EA ^SP PDATE ;PR1nT the stopping date 

FOOb bC'F5FJ> -SR PSPaCE 

FDCfc- Ftx.Ciy L’CA8 FTIMEH 

FDit bbAOl* L'EAA FTIMEL 

Full bDF72P -,SR PTlHE iPRiNT THE STOPPING TIME 

FDiA B0F55S ^SR lFCR 

FD17 39 RTS 


otTniS SLfcROUTXNE PRINTS ThE WARHUP 
*T1F£. 


FUlb 

bfeAOlb WPbiNT 

LCAA 

WTIME 


FDlb 

BOf 3Efa 

-SR 

BCD 

{CHANGE THE TIME TO BCD 

fdie 

&UF57*. 

-SR 

BYTOUT 

{PRINT THE TIME 

FUZl 

39 

PTS 




«-Th 1S SLEROUTlNE PRINTS ThE FREQ- 
«-UtNCY OF measurements. 

F022 FGAOlS FRFf'lNT LCAB HFHEQ 
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rozs 

B6*01o 

LEAA 

LFREQ 

FLEo 

bDF 720 

„SR 

PTIME 

FUZU 

ciDFSbS 

.^SR 

lfcr 

FD2£ 

39 

RTS 





JPBINT THE TIME 


*»THI5 ScEROUTINE PRINTS THE INPUT 
*pArtAMTERS TO THE DAT* LOGGER, 


FD2r 

60F629 INPARM 

.^SR 

ENMEH 

F U3£ 

CEF022 

UCA 

-SSTART 

FU33 

dDF7l7 

■wSR 

print 

FL3o 

8DF5F5 

.^SR 

PSPACE 

Fu3o 

csUFCEo 

vER 

SPRINT 

FC3t 

CEF029 

LCX 

-iSSTOP 

FDai 

bUF7l7 

■vER 

PRINT 

F U4- 

cjURGOw 

•vSR 

PSP 

FDaT 

BUF5FS 

«Sfi 

PSPACE 

F [ja,* 

pDFCFF 

vSR 

FPRINT 

FD»u 

CEFOSi 

LCA 

-.sharmup 

FD5J 

bOF7l7 

vSR 

PRINT 

ru5j> 

CEF OdF 

LCX 

-ST I 

F05i> 

8UF 717 

■,SR 

PRINT 

FI/5V 

bUFDlb 

wSR 

wPRINT 

FLb^ 

cEFnbs 

LCX 

-SMIN 

FD5F 

□0F717 

wSR 

PRINT 

FD64. 

bDF 553 

^SR 

LFCR 

Fi/o3 

CEFC2F 

L-CX 

-SFREQ 

r Dt )0 

bUF7l7 

•vSR 

print 

F D6r> 

faoFSFo 

.^£R 

PSPACE 

FD6C. 

bUFD2c 

^SR 

frprint 

Fu7i 

BDF4AJ 

,^£R 

DI5MEM 

FO?** 

7EFCCb 

ijMP 

DISDON 


««««««»»«« 


; ENABLE MEMORY 


;PRINT 

+7START+7 



;PRINT 

THE STARTING 

DATE and 

time 

JPRXNT 

;PRINT 

SPRINT 

iPRiNT 

»7ST0PPING^7 
A space 

5 spaces 

THE STOPPING 

date and 

TIME 

SPRINT 

'^7WARMUP'^7 



SPRINT 

SPRINT 

♦7TlMtt7 

THE WARMUP TIME 


SPRINT 

♦ 7MIN1'7 



SPRINT 

♦7FREQUENCY 

OF • • ; • 


SPRINT 

THE FREQ, OF 

M£a5. 



;return TO options 


*'f7His sleroutine prints The proper 

*HtAOlNG [DEPENDING ON THE PORTS 
*SELtCTED) »H£N CALLtD BY SEQUENTIAL 

•s-reacings or current sensor readings. 


FD7i 

ceffb? 

SUSBa 

LCX 

-SHEA02 

FC7» 

BDF717 


■vSR 

PRINT 

FD7L 

CEFFCE 


LCX 

-SPORT 

Fubi- 

bOFClb 


vSR 

SETUP 

F05J 

BUFBE7 

MOHTET 

■wSR 

WrilCHP 

F Uoo 

ClFF 


CMRfa 

-SSFF 

FDttf’ 

27uF 


bEO 

ZOOM 

FDo-. 

ceffce 


LCX 

-SPORT 

F HAD 

bOF717 


■^£R 

PRINT 

F 

5C 


INC0 


FD9i 

17 


tea 


FD92 

t)A3C 


CFAA 

-SS30 

109- 

bUF2AU 


•>»SR 

OUT A 

Fog” 

20EA 


BFA 

MORYET 

FU99 

BDFbSb 

ZOOM 

w£R 

LFCR 

ru9C 

j9 


RTS 





‘'♦this slehoutine displays the current 
oRAkLINGS at each port that has chosen 
*DLR 1NG Tii-E initialization, tANY CHAR, 
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«T“Ped at the ^EYt50Al?D WILL DISPLAY 
*TnL CURFENT readings. +T0 EXIT FROM 
•»THis SUfcFOUTlNE YOU MUST HIT An 
oCOf^TBOL 


Fu9D 

CtFOEF 

CuHRs 

LEX 

-.SRS 



F DA& 

BDF 717 


■wSR 

PRINT 


;PR1NT ♦TTYPE R for READ....+7 

FUA^ 

bDF629 


•,£R 

enmem 


-.enable memory 

FDAti 

BUFD77 


v£R 

SU8BA 


;TYPE THE COLUMN HEADINGS 

Fuav 

BDFaAj 


■ vSR 

DISHEM 


5DISABLE THE MEMORY 

FDAL 

7C000A 


BAC 

WHERE 



FuA*" 

j£ 

MOREr 

kA I 



;WA1T FOR A KEY PRESS 

FDBv- 

bOFo29 


vSB 

enmem 


-.enable memory 

"uKJ 

bUFClb 


wSR 

SETUP 


;initailize wmatport routine 

FDdo 

7FA02C 


CLR 

SENNUM 


;START at Port o 

FLo9 

hUF60« 


v£B 

ADCVAL 


JTAKE a READING 

Fuse 

CL402J 


LCX 

-iSCONVH 


;PUT READING IN 

FD5F 

tjDrSbA 


.wSfi 

LSHFTA 


;SHIFT left four BITS 

Foca 

BOF80U 


■wSR 

SENSeV 


;C0nV£RT ANO'PRINT the temp. 

FDCa 

7LA02C 


IKC 

SENNUM 


}READ port 1 

FOCti 

CEA02J 


lCx 

-.SCONVH 


;PUT reading in +I+R 

FDCb 

BDF6DA 


■vSR 

ADCVAL 


JTAKE THE READING 

FUCL 

BD^StiA 


■vSR 

LSHFT4 


5SH1FT left four BITS 

FODi 

bdfbo« 


vSR 

senscv 


JCONVERT and PRINT THE DEw POINT 

FDD*. 

7C^asc 


INC 

sEnnuk 


STAKE THE reading AT PORT 2 

r jP7 

BDF60A 


wSB 

ADCVAL 


STAKE THE AIR pressure 

FliuA 

Bu)F 9oa 


vSB 

SENSCV 


sconvert and print the air pressure 

FDCd 

faDFSET 

ERSTE 

<w£B 

wHlCHP 


SGET number of additional PORT 

r'DEw 

ClFF 


OFPB 

-SSFF 


-.IF IT IS FF they wE are DONE 

FuEd 

2700 


EEO 

LEZTE 


5 GOTO LEZTE IF DONE 

FDEv 

aUFttDA 


■vSB 

ADCVAL 


STAKE the reading 

Fu£7 

bb04 


L'CAA 

-SSOa 


STELL SENSCV IT+7S A VOLTAGE 

FDE.^ 

87A02C 


staa 

SENNUM 


SSToRE SENNUM 

fdec 

BOF8o«- 


<^SR 

SENSCV 


sconvert and print the voltage 

FD£F 

2»/t.C 


EFA 

erste 


SCHECK for more 

FoFl 

bDFSSb 

LE<:rE 

...SR 

LFCR 



F i)F»*. 

b0F4A3 


vSR 

UXSMEM 


SOISABLE the MEMORY 

roFT 

2C86 


EFA 

MORER 


;G0 sack and wait FOR MORE 



»«'>«««««« a ««««»»«•««» 





»aTh1S 

SLEROUTINE Takes the 

MEMORY LOCATION 



*T”AT 

Is IN THE +ItR AND GIVES 

the date and 



«T IME 

OF THE 

READING THAT IS 

STORED IN THAT 



omLMory location. 1-IF no reading was TAKEN THEN 



■»THt:N 

OOOC IS 

STORED IN THE 

Y-I+R. +IF THE 



OHtxQiNG »AS 

TAKEN THEN THE 

DATE IS STORED 



*IN NONTiF and 

DAY. AND THE TIME 

IS STORED IN 



«T1H£F 

ANC TlMEL. 



FCF9 

ofia 

wHREaC 

SIX 

savings 


SSAVE THE -FI+R 

FDF.-5 

60F59d 


vSR 

STIME 


SSAVE PMONTH THRU LMlNH 

FuFt 

ButFttDC 


■vSR 

STOPS 


8 MOVE SMONTH-LFREQ INTO PMQNTH-LMINL 

FtOl 

CtAOAO 


LCX 

-.sstartm 


SSTART CHECKING AT THE START OF MEMORY 

FfcO*t 

9C14 

OAYLQ 

CFX 

savings 


Sis THIS THE LOCATION IN QUESTION*/ 

FtOo 

2710 


EEli 

DDAY 


5 IF IT IS Branch to doay 

FEOb 

BC4.023 


CFX 

mdatah 


5 IF IT ISN+7T THE CORKECT DAY 







SIS IT IN THE FUTURE+/ 

r EOo 

2708 


EcQ 

OVUAY 


SIF ITStTS A FUTURE READING 







SBRANCrl TO OVOAY 

FCv/D 

bOF +£A 


vSR 

IRLOOP 


5 IF IT+7S NONE OF THESE. INCREMENT 
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.the tl+R apphophiateuy 


rtlD 

B0F2E1 



uptime 


JTHEN CHANGE THE DATE AND TIME 

-tl J 

2uEF 


BRA 

UAYLO 


; BRANCH anO compare AGAIN 


CEOOOu 

ovD»»r 

LCA 

00 00 


SREAOlNb NEVER TAKEN 

Fbl:S 

FF«^021 

DDAT 

SIX 

TEHP12 


;SAV£ 4I+R 

FuIH 

6JF37d 


i^SR 

UNSTOP 


TMOVE the CORRECT DATE AND TIME 







5 INTO MONTH, DAYtTlMEh, TIMEL 

FEU 

BDF5B3 


^=R 

rtime 


JRESTORE PHONTH-LKlNL. 

fc.21 

Fc<.02l 


LCX 

TEMF12 


;r£STOre the •M+R 

FE2<» 

i9 


RTS 



JRETURN TO caller 







«*THIS 

SLEHOUTINE TAKES 

A DATE 

AND time 



«AS input ANO asks HOVi MANY READINGS 



«Yv/b »0ULC LIKE 

printed 

OUT, 

+ THE 



sSUdROUTlNt then prints 

OUT THE FIRST 



*r£adin6 asked 

for PLUS 

EVERY 

READING 



T£fi 

Ti-AT until the number OF READ- 



»lNbS 

THE USER 

SPECIFIED Has seen 



*PRInT£d» *-THE 

ROUTINE 

prints 

NOTHING 



*It A 

Invalid date or time is 

SPECIF- 



«lc.D. 






b-3F62V 


.SR 

ENMEM 


tenable memory 

FC'-i 

CEF02E 


LCX 

-SSTART 




dOFTl? 


.SR 

print 


TPRINT 47START+7 

ftLlz 

b'JF24o 


wSR 

getdat 


}GET THE date AND TIME 

"cii 

BUF5S5 


vSR 

lfcr 



~t3'* 

CS.F73E 


LCX 

-SHOW 


' 

' C.3 f 

3DF717 


.SR 

PRINT 


; PRINT +7H0W MANY READINGS+T 

Fij » 

CtF79tJ 


LCX 

-STHREE 




bDF7l7 


.SR 

PRINT 


TPRINT 47(4X+X+X)4/+7 

r t»fC 

bOf 2AD 


.Sfi 

ThRDIo 


?6ET the three DIGITS 

Ft.* J 

o7<*033 


STAA 

nUMLOW 


5 STORE them In NUMLOW 

>^t4 = 

F7.*03t 


STAS 

nUMHI 


;AND NUMHI 

r tA J 

BUF55= 


.SR 

LFCR 



-b*C 

BOFbOV 


.SR 

PSP 



r L<*'* 

CEFFaC 


LCX 




■^Ebi 

60F717 


‘.SR 

PRINT 


TPRINT 470ATE TIHEt7 

FLSj 

bOFD77 


vSR 

subsa 


;PR1NT +7TEMP AIR PHE.,,,.47 

"c-^o 

7AO00A 


CEC 

WHERE 



r E5i= 

oOFaF2 

HEsSEd 

.SR 

rtaken 


;CHECK IF READING wAS TAKEN 

Ft5£ 

2b03 


ENE 

SEUL 


tbranch if reading was taken 

Fbfc„ 

7EFF04 


.JHP 

SEQDON 


iQUIT IF •I'FR=0000 

Ft6i 

SDFDF9 

SEUL 

•vSR 

WHREAD 


;F1ND date and time 

^Ebo 

bi)F4F2 


.SR 

RTAKEN 


JFIND THE MEMORY LOCATION IT 







;IS STORED IN 

FE69 

2bU3 


6N£ 

JUMPl 


•.BRANCH IF FOUND 

r E6o 

7EFF0H 


.HP 

SEQDON 


;QUIT 

FE5E 

FoAOOI 

Ut'MPi 

LCAb 

MONTH 


;-Mj=M0NTH 

FE71 

bd40o<: 


LCAA 

DAY 


;+A=HONTH 

FET*^ 

FF402B 


STX 

TEHPIR 


jSAve tltR 

Ft?/ 

30FSEA 


.SR 

POATE 


TPRINT THE DATE 

FE7A 

bOF6ao 


.SP 

PSP 


TSKIP A SPACE 

FlTli 

bo4004 


LCAA 

TIMEL 


;tA=TlMEL 

J 

F 64003 


LCAe 

T IMEH 


;t8=TlHEH 

r tftJ 

3DF720 


.SR 

PTImL 


TPRINT THE TIME 

Ftbc 

FE402O 


LCX 

TEMPIR 


TRESTORE fl-fR 

^Zo'" 

f o«^u2^ 


LCAB 

nports 


}4fa=NUMBER OF readings 
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fegc 

CliOS 

' 

SLB8 

-,$S02 

FcPE 

rjDr 60u 


wSR 

PSP 

FL^-l 

AoUO 


L'CAA 

SOOtX 

F£cr 

t 74CE J 


5TAA 

CONVH 

f t9o 

7FhC2C 


CLR 

SENNUrt 

r E9? 

oDF BOv 


^SR 

SENSCV 

Fl9C 

ito 


IKX 


FE9t. 

AbOO 


LEAA 

S00>X 

FcRf 

87402-> 


STAA 

CONVH 

FE/'2 

7CA02C 


INC 

SENNUM 

FLAb 

bOFBOl' 


• ER 

SENSCV 

F EAo 

Cfa 


INX 


Ft 

SO 

HiTFiER 

TSTB 


FEA A 

2739 


gEO 

YONl 

FtAC 

SA 


DECS 


F Eal 

7C‘f02C 


INC 

SENNUM 

FErJ 

At>00 


LCAA 

SOOiX 

FEBa 

&7A025 


STAA 

CONVH 

Fttb 

AfaOl 

. 

L'CAA 

SOItX 

FEbT 

d7*»02‘' 


STAA 

CONVL 

FLc « 

FF*f02b 


STX 

TEMPIR 

FtbO 

CEA02A 


LCX 

-lECONVH 

FECL 

B0F9aA 


wSR 

RSH1FT4 

FECj 

FEA02O 


L'CX 

tehpir 

FtCc 

aUFBOt 


wSR 

SENSCV 

FtCV 

06 


INX 


FEC« 

clD 


TSTB 


FECd 

2717 


bEO 

YON2 

f ECL 

5a 


CECB 


fece 

A601 


L'CAA 

301»X 

FEL'O 

d7a02a 


STAA 

CONVL 

FEL-j 

AtOO 


LCaA 

SCOtX 

FLUb 

oAliF 


ANDA 

-iSSOF 

F Eb ’( 

B7AU2J 


STAA 

CONVH 

FEDm 

7CA02C 


INC 

SENNUM 

FEI’Li 

bUFaU'- 


^Sk 

SENSCV 

FEEv 

C6 


JKX 


r£c.i 

v6 


INX 


FEEa 

20C5 


EPA 

HITHER 

FEL*- 

08 

YUN2 

IKX 


FEEj 

BDFSSb 

YOM 

vSR 

LFCP 

FEEo 

FBaOS"* 


LCAB 

NUMHI 

FEES 

894033 


LCAA 

MUMLQw 

FEtE 

elUil 


SLBA 

tSSC I 

FEF . 

C200 


secs 

-ssoo 

FEFc. 

F7a03* 


STAB 

NUMHI 

FEFb 

97a03j 


STAA 

NUMLOW 

FEF o 



TSTA 


FEFV 

2703 


EEQ 

HOP 12 

F£Fs 

7 EFE 60 


jmP 

SEQL 

FEFE 

5U 

HOP 1 2 

TSTB 


F Ef <■ 

t703 


bEQ 

SEQOON 

Fr - 

7£FEb3 


wMP 

slul 

Fr u** 

3DF4A3 

SEjCON 

vSk 

OISMEM 

FFo'' 

7C00U*» 


INC 

WHERE 

FFOA 

7c.FCCb 


vNP 

OISDON 


;subtract Two 
sskip'a space 

5 STORE REA01N6 IN tA 
{STORE READING IN CqNVH 
5 SET PORT TO 0 
{CONVERT AND PRINT THE TEMP 
{INCREMENT THE -M+R 

{STORE READING IN CONVH 
{SET PORT TO 1 

{CONVERT AND PRINT THE DEW POINT 
{INCREMENT THE tlfft 
{ALL READINGS PRINTED POR TIME 
;IP YES branch to YONl 
{DECREMENT -.s OF READINGS TAKEN 
{LOOKING AT NEXT PORT 

{STORE HIGH ORDER HALF IN CONVH 

{STORE LOW ORDER HALF IN CONVL 
{STORE THE i-l + R 
{LET THE ♦l+fi POINT TO CONVH 
{SHIFT C0NVH*L RIGHT A BITS 
{RESTORE +I+R 

{CONVERT AND PRINT THE READING 
{INCREMENT THE 

{HAS EACH READING BEEN PRINTED 
{IF YES BRANCH TO Y0N2 
{DECREMENT -li OF READINGS PRINTED 

{STORE LOW ORDER 8 BITS IN CONVL 

{MASK OFF TOP A BITS 
{STORE HIGH a BITS IN CONVH 
{POINT TO NEXT PORT 
{CONVERT AND PRINT THE READING 
{INCREMENT THE '^ItR 
;00 IT TWICE 

{CHECK FOR MORE READINGS 
{INCREMENT THE +1+R 


{DECREMENT -S OF READINGS PRINTED 
{WITH CARRY 
{STORE IT BACK 

;IS LOW ORDER 8 BITS ZERO 

{IF YES GO TEST aB 

{JUMP" BACK FOR MORE READINGS 

{TEST HIGH ORDER 8 BITS 

{IF ZERO THEN QUIT 

{IF NOT BRANCH BACK FOR MORE 

{DISABLE memory 

{RETURN TO OPTIONS PAGE 
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FF'Ju 

uF(j2 

delayi 

STX 

TEMP 1 3 



FF.jf 

3b 


PShA 




“^FiC 

obOB 


L'CAA 

^SSOB 



FF 

0[)F9Dc 

uLOOPI 

w5R 

delay 



r'F 

4A 


CECA 




FF ‘ o 

2bF A 


BhE 

3L00P1 



FFIJ 

32 


PLLA 




FFl-^ 

DE02 


lCX 

TEMP I 3 



FF lb 

39 


PTS 











*tT„iS 

SlEROUTINE dumps all of 

THE 



*kAADING5 that 

have been Taken 

TO 



*Tht. FE9IFHERAL 

DEVICE (IF 

SWITCHED 



*0«} AND TO THE 

TERMINAL. 

♦ THE 




orEauings are PRECEDEO SY 

SOME 




*i^ITlALl2ATlCN 

ParaMTERS 

(SEE 




oThE OHERATION 

manual for 

DETAILS) . 

ff !■„ 

3bE00^; 

OUHP 

LCAA 

CLOCKt! 



FFlr 

0AJ8 


ANDA 

-iSSOS 


J CHECK IF DUMP SWITCH PRESSED 

FF^i 

26F9 


fc^E 

DUMP 


5LOOP UNTIL IT IS PRESSED 

r F di 

BDFb29 


*wSR 

ENMEm 



F F2o 

BobO 


LCAA 

-.SS80 



FF20 

BAhOOu 


CPAA 

status 



F F3» 

bFifOOJ 


STAA 

STATUS 



FF?,£ 

bDFCEo 


vER 

SPRINT 


SPRINT THE STARTING DATE AND TIME 

!"Fj: 

bOFCFF 


<v5R 

FPRINT 


SPRINT THE STOPPINfa DATE AND TIME 

FF3“ 

bJFOl b 


vSR 

ViPRInT 


SPRINT THE WARMUP TIME 

FFj? 

ol3F55b 


■wSR 

LFCR 


SSMP A LINE 

FF3F 

0BFD22 


-SR 

FRPRINT 


SPRINT THE FRE(J. OF MEASUREMENTS 

FFiD 

Bb^Oati 


LCAA 

NPORTS 



FF 40 

BUF57A 


-SR 

BYTOUT 


SPRINT THE -S OF READINGS 







STAKEN EACH TIME 

FF<* b 

CEA04J 


LCX 

-SSTaRTM 


SfI+R=STARTlNG LOCATION OF DATA 

FF<»= 

&uF55b 


•-5R 

LFCR 



FFh-^ 

BO402H 


L'CAA 

PORTBT 



FF -iU 

bDF57h 


-SR 

BYTOUT 



FF^f 

dUP553 

OUli-OP 

-SR 

LFCR 


SSKIP A LINE 

FF ii 

r3CHC25 


CFX 

HD AT AH 


Sis IT THE END OF THE READINGS 

FF55 

a7*»7 


EEQ 

HELLO 


8 IF YES THEN GOTO HELLO 

FF57 

Fb‘*02o 


LCA8 

NPORTS 


OF READINGS 

r h 

AeuO 


LCAA 

SOOtX 



Fr j)C 

BOF57H 


vSR 

dYTOUT 


;PRINT TEMP reading 

FFbF 

uo 


JhX 



5 INCREMENT tItR 

FFbo 

dOF oO V 


vSR 

PSP 


SSKIP A SPACE 

FF6J 

AbOO 


LCAA 

soo.x 



r F6b 

30F57A 


vSR 

BYTOUT 


SPRINT DE» POINT 

rFtjb 

on 


IhX 



S INCREMENT ■M-‘R 

FFb-J 

i)A 


CECB 




'F oh 

5A 


CECd 



SDECREMENT TWICE 

FF 00 

BDF60b 

FUUdlT 

vSR 

PSP 


SSKIP A SPACE 

FFbt 

AbOO 


LCAA 

SOO.X 



FF 

BDF57A 


-SR 

BYTOuT 


SPRINT FIRST byte 

~r 7j 

uB 


IhX 



S increment fl+R 

FF 74 

AbOO 


LCAA 

SOO>A 



fk7o 

44 


LSRA 




FF7/ 

4h 


LSfiA 




FF7o 

44 


lsra 
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A<* 


LSRA 


;0R0P 8 LOW ORDER BITS 

rf 7A 

SDFqSU 


-SR 

HExaSC 

{CONVERT TO HEX 

FF7J 

cOFSA^ 


-SR 

OUT A 

{PRINT 

r F So 

oa 


I-NK 


{INCREMENT tl+R 

epsi 

=A 


CECo 


{DECREMENT -.S OF READINGS PRINTED 

FF3E 

27CS 


cEG 

OUTLOP 

;IF DONE BRANCH BACK TO OUTLOP 

FFe** 

bOFoO J 


-SR 

PSP 

{SKIP A SPACE 

FFo7 

■j9 


CEX 


{DECREMENT 

FF30 

AbOO 


UCAA 

soo»x 


FFfaA 

bAOF 


anoa 

^SiOF 

{MASK OUT HIGH 8 BITS 

FF8C 

BDF bbU 


-SR 

HEXASC 

{CHANGE TO HEX 

FFSF 

B0F2AU 


-SR 

OUTA 

{PRINT THE CHARACTER 

rF92 

08 


INX 


{INCREMENT 4l+R 

Fr 93 

AbOO 


lcaa 

SOOtX 


FF9s 

80F57A 


-SR 

BYTOUT 

{PRINT THE BYTE 

FF9S 

08 


I'AX 


{INCREMENT •Ii‘R 

FF99 

sA 


DECS 


{DECREMENT -.S OF READINGS PRINTED 

FF9m 

2783 


EEO 

OUTLOP 

{BRANCH SACK IF ROw IS FINISHED 

Ff-^C 

20C0 


ERA 

FUL81T 

{FINISH TME row 

FF9i 

6o7F 

HELLO 

LCAA 

->SS,7F 


FF A 0 

BAAOOb 


ANDA 

STATUS 


FF a3 

b7‘»C0v 


STAA 

STATUS 


FF Ao 

B0FaA3 


.-Sk 

DISMEM 


FF a9 

7EFF1.C 


.^!^P 

DUMP 


F F AC 

4‘»Al5**- 

HEaUi 

FCC 

♦ TCiATE TIME+7 


FF aF 

452020 





FFEc 

344940 





FFbb 

45 





FFbo 

00 


FCB 

00 


FFb7 

2o2C5*» 

n£A02 

FCC 

1-7 temp dew 

PT PRESS +7 

FFqA 

454D&V 





FFEU 

2020»*» 





FFCU 

455720 





FFC3 

505420 





FFCP 

205052 





FFCO 

455353 





FFCC 

20 





FFCU 

00 


FCB 

00 


FFCA 

2050A^ 

PORT 

FCC 

♦7 P0RT•^7 


FFDi 

5254 





FF03 

00 


FCB 

00 





END 




«■ The binary In In Physical slock z 


s Y H e 0 L 


legend 


•» shifted key 

V SUbSCRIPT 
* CARRIAGE return 
- ACCESS 
~ DlvlbE 
i PERCENT 


A superscript 
< backspace 
> font 

TIMES 

r» ASSIGN 
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RRL Rep. No. 496 - Gardner, C. S. and A. M. Saleh (October 1978), 
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